Letztendlich will ich meine statische Karte die ich über VBA in Excel aufrufe als dynamische Karte mit dem Traffic Layer sehen.
Das ist mein jetziges VBA Script: Es öffnet eine statische Google Maps Karte und markiert bestimmte Orte anhand ihrer Adresse, die aus einer Excel Liste gezogen werden.
Sub google_maps_aufrufen3()
' Parameter
Dim ADRESSEN()
ReDim ADRESSEN(Selection.Count - 1)
Dim ADRESSTYP()
ReDim ADRESSTYP(Selection.Count - 1)
zahlen = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, "=", "$", "+")
buchstaben = Array("A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z", "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z")
counter_array = 0
Dim Selektionen As Range
Link_teil1 = "http://maps.googleapis.com/maps/api/staticmap?&size=640x640&maptype=roadmap&key=hier steht mein Key" ' Erster Teil der URL
link_teil3 = "&sensor=false" ' Letzter Teil der URL
link_teil_label2 = "%7Clabel:"
link_teil_label1 = "&markers=color:"
' Bestimmung der Adressen
For Each Selektionen In Selection ' Jede selektierte Zelle durchgehen...