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

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.

Olá Leoni Dias,

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

Abraço

Boa noite, amigo ahTeixeira.

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

Muito obrigado a vc.

Olá Leoni Dias,

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

Abraço

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.