P
Pierre Garound
Hello Mr and Mrs
I have code from this a employee of this forum to show locations on map of
France. It will not work for France only of England and America. I not want
to go from then to only to show location with point. But I think the code of
non-funtionals as it will not save wen I move the map to France. I can put
in Buckingham Palace but it will not work for any where in Paris - why is
this Microsoft.
I have ask of Forum in France but they do not this code know so they say to
ask you Mr and Mrs in this forum
Can you help me to correct this code please thank you.
This code is for England
Private Sub MapSearch_Click()
Dim MyHyperlink As String
Dim strGoogleLoaction As String
strGoogleLoaction = Replace([ZipCode], " ", "+")
MyHyperlink =
"http://maps.google.co.uk/maps?g=q&hl=en&geocode=&time=&date=&ttype=&q=" &
strGoogleLoaction & "&ie=
UTF8&msa=0&ll=52.802761,-111.972656&spn=45.773251,118.476562&t=h&z=3&om=0&mÂsid=103780121206034963667.00044460d57e1dea96b9d"
Application.FollowHyperlink MyHyperlink
End Sub
and for America I have this code
Private Sub MapSearch_Click()
Dim MyHyperlink As String
Dim strGoogleLoaction As String
strGoogleLoaction = Replace([ZipCode], " ", "+")
MyHyperlink =
"http://maps.google.co.uk/maps?g=q&hl=en&geocode=&time=&date=&ttype=&q=" &
strGoogleLoaction & "&ie=
UTF8&msa=0&ll=52.802761,-111.972656&spn=45.773251,118.476562&t=h&z=3&om=0&mÂsid=103780121206034963667.00044460d57e1dea96b9d"
Application.FollowHyperlink MyHyperlink
End Sub
? How do I make so France is on map when open
I have code from this a employee of this forum to show locations on map of
France. It will not work for France only of England and America. I not want
to go from then to only to show location with point. But I think the code of
non-funtionals as it will not save wen I move the map to France. I can put
in Buckingham Palace but it will not work for any where in Paris - why is
this Microsoft.
I have ask of Forum in France but they do not this code know so they say to
ask you Mr and Mrs in this forum
Can you help me to correct this code please thank you.
This code is for England
Private Sub MapSearch_Click()
Dim MyHyperlink As String
Dim strGoogleLoaction As String
strGoogleLoaction = Replace([ZipCode], " ", "+")
MyHyperlink =
"http://maps.google.co.uk/maps?g=q&hl=en&geocode=&time=&date=&ttype=&q=" &
strGoogleLoaction & "&ie=
UTF8&msa=0&ll=52.802761,-111.972656&spn=45.773251,118.476562&t=h&z=3&om=0&mÂsid=103780121206034963667.00044460d57e1dea96b9d"
Application.FollowHyperlink MyHyperlink
End Sub
and for America I have this code
Private Sub MapSearch_Click()
Dim MyHyperlink As String
Dim strGoogleLoaction As String
strGoogleLoaction = Replace([ZipCode], " ", "+")
MyHyperlink =
"http://maps.google.co.uk/maps?g=q&hl=en&geocode=&time=&date=&ttype=&q=" &
strGoogleLoaction & "&ie=
UTF8&msa=0&ll=52.802761,-111.972656&spn=45.773251,118.476562&t=h&z=3&om=0&mÂsid=103780121206034963667.00044460d57e1dea96b9d"
Application.FollowHyperlink MyHyperlink
End Sub
? How do I make so France is on map when open