Displaying multiple addresses in an embedded Google Maps

[Devan6410]

Hi Everyone,
I have list of addresses less than 30. I need to show marker for these addresses in google map which i created via Excel Web browser.
Currently im only able to plot 1 address on the map using VBA Code.

No clue how to add more than 1 address on to the google map.

Can someone pls share VBA code for multiple addresses.

Thank you.
Br,
Devan

 

[John_w]

Currently im only able to plot 1 address on the map using VBA Code.

Please post your code if you want help with it.

This thread might help, though it plots markers using latitude and longitude co-ordinates so you'll probably need to geocode your addresses using the Google Maps API.

Google Maps VBA integration

Hi, I have the code below that takes lat/longs from a file and plots them on a Google Map. The code generates a html file which automatically fires up in the web browser. I have a couple of issues with this where I need to make amendments to the vba code and the underlying html. Firstly I...

www.mrexcel.com

 

[Devan6410]

Please post your code if you want help with it.

This thread might help, though it plots markers using latitude and longitude co-ordinates so you'll probably need to geocode your addresses using the Google Maps API.

Google Maps VBA integration

Hi, I have the code below that takes lat/longs from a file and plots them on a Google Map. The code generates a html file which automatically fires up in the web browser. I have a couple of issues with this where I need to make amendments to the vba code and the underlying html. Firstly I...

www.mrexcel.com

Hi John,
Please find below the code. With this im only able to show 1 marker on the Google Map in Excel.
In total i need to show 8 marker with the respective GPS coordinates.

I have attached the image as well.
Thank you for your support.

Private Function CreateLink(Address As String) As String
    
        CreateLink = "https://www.google.com/maps/place/" & Address
        
End Function

Private Sub CommandButtonMapGoogle_Click()

WebBrowser1.Navigate2 CreateLink(ActiveSheet.Range("l3").Value)

End Sub

 

[John_w]

I see you're using latitude and longitude in columns A:B, so the code in the link should work for you. You'll need to register your application in the Google Cloud Platform, obtain an API key to put in the HTML code and enable the Google Maps JavaScript API. To display the map in your WebBrowser object, instead of the default web browser, you'll need to change this line:

    ActiveWorkbook.FollowHyperlink Address:=FileName, NewWindow:=True

to something like:

WebBrowser1.Navigate2 FileName/CODE]