Olá a todos mais uma vez.
Desta vez tenho uma dúvida relacionada com a conversão de um código que encontrei num exemplo em "Excel" para "Access", em anexo.
O código é este:
A vantagem de usar um "Controlo de Imagem" em vez de um "WebBrowser" é que a imagem recebida do "GoogleMaps" aparece sem as bordas a branco.
O meu problema está relacionado com a variável "oShape As Shape" que remete para um "controlo de Imagem" existente na "Sheet do Excel".
Em VBA Access como altero o "oShape.Fill.UserPicture sURL" para funcionar num "Controlo de Imagem".
O meu obrigado antecipado.
Bruno Gordino
Desta vez tenho uma dúvida relacionada com a conversão de um código que encontrei num exemplo em "Excel" para "Access", em anexo.
O código é este:
- Código:
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
sURL = "http://maps.googleapis.com/maps/api/staticmap?center=" ... "&sensor=false&scale=1"
oShape.Fill.UserPicture sURL
End Sub
A vantagem de usar um "Controlo de Imagem" em vez de um "WebBrowser" é que a imagem recebida do "GoogleMaps" aparece sem as bordas a branco.
O meu problema está relacionado com a variável "oShape As Shape" que remete para um "controlo de Imagem" existente na "Sheet do Excel".
Em VBA Access como altero o "oShape.Fill.UserPicture sURL" para funcionar num "Controlo de Imagem".
O meu obrigado antecipado.
Bruno Gordino
- Anexos
- Exemplo.zip
- Você não tem permissão para fazer download dos arquivos anexados.
- (91 Kb) Baixado 15 vez(es)