将Google街景视图图像嵌入到Excel中

Question

我试图将Google街景视图嵌入到Excel中。我发现这个link它有下面的代码。对我来说根本不起作用，并寻找一些帮助开始。显然，我需要设置变量来查找街景网址。但我从来没有通过VBA插入图片，寻找一些指导。

Sub GoogleStaticStreetView(oShape As Shape, _ 
         sAddress As String, _ 
         lHeading As Long, _ 
         Optional lHeight As Long = 512, _ 
         Optional lWidth As Long = 512) 

    'https://developers.google.com/maps/documentation/streetview/ 

    Dim sURL As String 
    Dim sMapsURL As String 

    On Error GoTo RETURN_FALSE 

    If bRunMode Then On Error Resume Next 'Error if quota exceeded 

    If Len(sAddress) > 0 Then 
     'URL-Escaped addresses 
     sAddress = Replace(sAddress, " ", "+") 
    Else 
     Exit Sub 
    End If 

    sURL = _ 
    "http://maps.googleapis.com/maps/api/streetview?" & _ 
    "&location=" & sAddress & _ 
    "&size=" & lWidth & "x" & lHeight & _ 
    "&heading=" & lHeading & _ 
    "&sensor=false" 

    sMapsURL = "http://maps.google.com/maps?q=" & _ 
    sAddress & "&t=m&layer=c&panoid=0" & _ 
    "&cbp=12," & lHeading & ",,0,4.18" 

    oShape.Fill.UserPicture sURL 
    oShape.AlternativeText = sMapsURL 

    Exit Sub 

RETURN_FALSE: 

End Sub 

Sub GoogleStaticMap(oShape As Shape, _ 
        sAddress As String, _ 
        Optional sMapType As String = "roadmap", _ 
        Optional lZoom As Long = 12, _ 
        Optional lHeight As Long = 512, _ 
        Optional lWidth As Long = 512) 

    'https://developers.google.com/maps/documentation/staticmaps/ 

    Dim sURL As String 
    Dim sMapsURL As String 
    Dim sMapTypeURL As String 

    On Error GoTo RETURN_FALSE 

    ' Google Maps Parameters '&t=m' = roadmap, '&t=k' = satellite 
    sMapTypeURL = "m" 
    If sMapType = "satellite" Then 
     sMapTypeURL = "k" 
    End If 

    If bRunMode Then On Error Resume Next 'Error if quota exceeded 

    If Len(sAddress) > 0 Then 
     'URL-Escaped addresses 
     sAddress = Replace(sAddress, " ", "+") 
    Else 
     Exit Sub 
    End If 

    sURL = _ 
    "http://maps.googleapis.com/maps/api/staticmap?center=" & _ 
    sAddress & "," & _ 
    "&maptype=" & sMapType & _ 
    "&markers=color:green%7Clabel:%7C" & sAddress & _ 
    "&zoom=" & lZoom & _ 
    "&size=" & lWidth & "x" & lHeight & _ 
    "&sensor=false" & _ 
    "&scale=1" 

    sMapsURL = "http://maps.google.com/maps?q=" & _ 
    sAddress & _ 
    "&z=" & lZoom & _ 
    "&t=" & sMapTypeURL 

    oShape.Fill.UserPicture sURL 
    oShape.AlternativeText = sMapsURL 

    Exit Sub 

RETURN_FALSE: 

End Sub 

Answer 1

你可以得到的代码中加入这一行的其他DIMS在GoogleStaticStreetView工作：

Dim bRunMode As Boolean 

然后运行该模块：

Sub makeThisCodeWork() 
    GoogleStaticStreetView Sheets(1).Shapes.AddShape(msoShapeRectangle, 0, 0, 512, 512), "GooglePlex, CA 94043", 100 
    Debug.Assert False 
    Sheets(1).Shapes.Delete 
End Sub 

这只是创建一个矩形物体作为容器使用，则它允许代码粘贴图像。

它会当它到达debug.assert false时暂停执行，然后它将删除工作表上的所有形状，以便您可以再次运行它。你必须使用地址和标题变量来获得你想要的东西。

我没有尝试运行其他模块，因为这是回国的地图，你刚才说的街景:)

希望这有助于 - 让你要我更详细的我知道/解释这里发生了什么。