GOOGLE MAPS

GIOBOHM 09/05/2011 09:57:58
#373495

Bom dia pessoal!

Utilizei uma função do próprio VB6 para abrir uma hiperlink que direciona para o google maps, que funciona perfeitamente. A função está postada abaixo. O código foi feito para VBA Excel e funciona muito bem.
Agora, preciso que essa pesquisa seja feita no modo [Ô]como chegar[Ô] do google maps, ou seja, que vá de um endereço A até o endereço B, até o endereço C e etc... Alguém sabe se tem como fazer isso sem usar o API do google maps?Private Sub cmdMapa_Click()

If lblEndereco.Caption = [Ô][Ô] Then
MsgBox [Ô]Armário sem endereço cadastrado![Ô], vbCritical, [Ô]Erro[Ô]
txtArd.SetFocus
Exit Sub
End If

vEndereco = palavras_googlemaps(lblEndereco)
vCidade = palavras_googlemaps(lblCidade)

ActiveWorkbook.FollowHyperlink Address:=[Ô]http://maps.google.com.br/maps?f=q&source=s_q&hl=pt-BR&geocode=&q=[Ô] & vEndereco & [Ô]+[Ô] & vCidade, NewWindow:=True

End Sub