MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Conversão de código feito em Excel para Access.

    Compartilhe
    avatar
    brunogor
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 184
    Registrado : 24/02/2013

    Conversão de código feito em Excel para Access.

    Mensagem  brunogor em 22/6/2018, 20:33

    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:
    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 8 vez(es)

      Data/hora atual: 23/9/2018, 17:43