MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


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

    brunogor
    brunogor
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido] Conversão de código feito em Excel para Access. Empty [Resolvido] Conversão de código feito em Excel para Access.

    Mensagem  brunogor 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
    [Resolvido] 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 15 vez(es)

      Data/hora atual: 8/11/2024, 01:14