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.

    brunogor
    brunogor
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Conversão de código feito em Excel para Access. Empty 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
    Conversão de código feito em Excel para Access. AttachmentExemplo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (91 Kb) Baixado 12 vez(es)

      Data/hora atual: 22/7/2019, 13:17