MaximoAccess

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

Obrigado

Administração do MaximoAccess

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]Conteudo da área de transferência para um arquivo bmp ou jpg

    leoni_dias
    leoni_dias
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 180
    Registrado : 14/08/2011

    [Resolvido]Conteudo da área de transferência para um arquivo bmp ou jpg Empty [Resolvido]Conteudo da área de transferência para um arquivo bmp ou jpg

    Mensagem  leoni_dias em 13/12/2019, 16:57

    Boa tarde,amigos.

    Eu já pesquisei em vários sites e não encontrei algo satisfatório.

    Também pesquisei aqui e não encontrei.

    Gostaria de saber como salvar o conteúdo da área de transferência em um arquivo bmp ou jpg usando o access.

    Obrigado.

    ---------------------------------

    Boa noite, amigos.

    Editando a primeira vez porque encontrei uma possível solução deixada no forum pelo amigo wesleidepaula, no link...

    https://www.maximoaccess.com/t16692-criar-arquivo-jpg-a-partir-do-conteudo-da-area-de-transferencia

    Super funcional, porém, utiliza um arquivo externo,uma DLL que deve ser registrada pelo usuário.

    O meu gosto seria um código que não precisasse usar nem DLL nem EXE.

    Se puderem me ajudar, agradeço.
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6957
    Registrado : 15/03/2013

    [Resolvido]Conteudo da área de transferência para um arquivo bmp ou jpg Empty Re: [Resolvido]Conteudo da área de transferência para um arquivo bmp ou jpg

    Mensagem  ahteixeira em 14/12/2019, 11:11

    Olá Leoni Dias,

    Veja se ajuda:
    vbaexpress.com/forum/showthread.php?25275-Saving-Clipboard-data-as-picture

    Abraço
    leoni_dias
    leoni_dias
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 180
    Registrado : 14/08/2011

    [Resolvido]Conteudo da área de transferência para um arquivo bmp ou jpg Empty Re: [Resolvido]Conteudo da área de transferência para um arquivo bmp ou jpg

    Mensagem  leoni_dias em 14/12/2019, 21:05

    Boa noite, amigo ahTeixeira.

    Ficou super funcional, apenas com pequenas modificações para estar de acordo com o meu programa.

    Muito obrigado a vc.
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6957
    Registrado : 15/03/2013

    [Resolvido]Conteudo da área de transferência para um arquivo bmp ou jpg Empty Re: [Resolvido]Conteudo da área de transferência para um arquivo bmp ou jpg

    Mensagem  ahteixeira em 14/12/2019, 23:26

    Olá Leoni Dias,

    Fico feliz Por ter ajudado.
    Se poder partilhar pequeno exemplo o fórum agradece.

    Abraço
    leoni_dias
    leoni_dias
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 180
    Registrado : 14/08/2011

    [Resolvido]Conteudo da área de transferência para um arquivo bmp ou jpg Empty Re: [Resolvido]Conteudo da área de transferência para um arquivo bmp ou jpg

    Mensagem  leoni_dias em 15/12/2019, 01:26

    Boa noite, ahteixeira.

    Como já existia no meu programa a imagem no clipboard, o que eu fiz foi colocar em um módulo a parte que deveria ser colocada nesse módulo, funções, constantes, etc, colocar nas declarações a parte já prevista para isso no exemplo e colocar em um botão apenas o código abaixo. Ficou perfeito... para mim, pelo menos.

    Código:
    Dim hPix As IPicture
    Dim hBitmap As Long
    hBitmap = GetClipBoard
    Set hPix = BitmapToPicture(hBitmap)
    SavePicture hPix, "C:\Winttl\Test.jpg"
    Set hPix = Nothing

    Obrigado de novo por me ajudar a pescar.
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6957
    Registrado : 15/03/2013

    [Resolvido]Conteudo da área de transferência para um arquivo bmp ou jpg Empty Re: [Resolvido]Conteudo da área de transferência para um arquivo bmp ou jpg

    Mensagem  ahteixeira em 15/12/2019, 17:02

    cheers

      Data/hora atual: 4/12/2020, 13:50