如何使用流量层打开动态地图

Question

这是我的VBA脚本，它在Internet Explorer中打开一个静态Google映射，并用在我的Excel工作表中找到的箭头标记某些地址。我想将此静态地图更改为带有实时路况图层的动态Google地图。我找到了，但这是用Java Script而不是VBA https://developers.google.com/maps/documentation/javascript/examples/layer-traffic制成的 我怎样才能做到这一点？

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=here is my key" ' Erster Teil der URL
link_teil3 = "&sensor=false" ' Letzter Teil der URL
link_teil_label2 = "%7Clabel:"
link_teil_label1 = "&markers=color:"