![]() ![]() ![]() Public Sub GoogleStaticStreetView(imageControl As Image, _ Private Const BINDF_GETNEWESTVERSION As Long = &H10 Private Declare Function DeleteUrlCacheEntry Lib "Wininet.dll" Alias "DeleteUrlCacheEntryA" _ (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" _ (ByRef pCaller As LongPtr, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByRef lpfnCB As LongPtr) As LongPtr Private Declare PtrSafe Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" _ What i desire is to call this code from one of my userforms that holds 4 images and show 4 views (90 degree differences) of the location.īut i cant find the right syntax to amend this line GoogleStaticStreetView Sheets(1).Shapes.AddShape(msoShapeRectangle, 0, 0, 512, 512), "GooglePlex, CA 94043", 100 "&markers=color:green%7Clabel:%7C" & sAddress & _ ' Google Maps Parameters '&t=m' = roadmap, '&t=k' = satellite Optional sMapType As String = "roadmap", _ If bRunMode Then On Error Resume Next 'Error if quota exceeded Sub GoogleStaticStreetView(oShape As Shape, _ sAddress As String, _ ![]()
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |