Opening Google Maps In Street View Instead of Layers View

[BrianExcel]

I have the following code which opens Google Maps and navigates to the latitude & longitude specified:

Sub CommandButton1_Click()
Dim chromePath As String

chromePath = """C:\Program Files\Google\Chrome\Application\chrome.exe"""
      
Shell (chromePath & " -url http://www.google.com/maps/place/" & UserForm1.txtLatitude & "," & UserForm1.txtLongitude), vbMaximizedFocus
  
End Sub

This code is working fine, except that it's opening in the generic "layers" view instead of "Satellite" view where you can see trees, buildings, etc. Actual textures.

Does anyone know of a way to open Google Maps in Satellite view?

Bonus Points: I would actually rather grab a screen shot of the map (in satellite view) and paste it into a frame in a userform if possible rather than opening a Chrome Window and finding the location, but I'll take what I can get....

Thanks!

 

[Jimmypop]

Hi there

Try the below change and let us know...

Shell (chromePath & " -url https://www.google.com/maps?t=k&q=" & UserForm1.txtLatitude & "," & UserForm1.txtLongitude), vbMaximizedFocus

 

[BrianExcel]

This worked perfectly Jimmypop - thank you!

Can I ask one more question - are you aware of how to (or any specific resources how to) capture a screen shot of that map and paste it into a frame on a userform? That would be my ultimate goal but the code above is a solution I can live with until I figure the other way out...

 

[Jimmypop]

This worked perfectly Jimmypop - thank you!

Can I ask one more question - are you aware of how to (or any specific resources how to) capture a screen shot of that map and paste it into a frame on a userform? That would be my ultimate goal but the code above is a solution I can live with until I figure the other way out...

Hi... I did try but also struggling with that one... maybe someone else spots this and has a solution...

 

[Georgiboy]

Below is some code I use to put an image inside an image object on a worksheet, you may be able to re-purpose it for a UF?

Sub GoogleStaticMap()
    Dim oShape As Shape
    Dim sURL As String
    
    Set oShape = Sheet1.Shapes("gPic")
    sURL = "https://maps.googleapis.com/maps/api/staticmap?center=51.4196774,-0.975"
    sURL = sURL & "&maptype=hybrid" & "&zoom=10" & "&size=" & 700 & "x" & 700 & "&sensor=false" & "&scale=1" & "&key=API_KEY_HERE"
    oShape.Fill.UserPicture sURL
End Sub

 

[Jimmypop]

Hi @Georgiboy

I tried the above code as is but getting error



on line

 

[Georgiboy]

Hi @Jimmypop

I probably should have mentioned a few things:

You need to have an active API key from Google
You need to activate the Static Maps part of the API on the Google cloud platform
The active API Key needs to replace "API_KEY_HERE" in the code
The rectangle shape on the sheet needs to be named: gPic

 

[Jimmypop]

Thought I had missed something

 

[BrianExcel]

So, I am SO close to having this code working (I think...)....

I have the code written, and everything passes correctly except the last line....

Sub CommandButton2_Click()
Dim oShape As Image
Dim sURL As String
    
    Set oShape = UserForm1.Controls("gPic")
    sURL = "https://maps.googleapis.com/maps/api/staticmap?center=" & UserForm1.txtLatitude & "," & UserForm1.txtLongitude
    sURL = sURL & "&maptype=hybrid" & "&zoom=10" & "&size=" & 386 & "x" & 386 & "&sensor=false" & "&scale=1" & "&key=ABCDEFG"
    oShape.Picture = LoadPicture(sURL)
End Sub

(I replaced the API key with generic letters but the key is there in the real code).

The error I am getting is on the last line...oShape.Picture = LoadPicture(sURL).

I get a "Run Time Error 75: Path/File Access Error".

Any ideas?

 

[BrianExcel]

I got something very close to work....

Instead of using the image control, I am using the web browser control with the following code:

.WebBrowserMap.Navigate2 "https://www.google.com/maps/@" & .txtLatitude & "," & .txtLongitude & ",17z"

It's not quite a screen shot but it's close enough...