Criar arquivo Jpg a partir do conteúdo da área de transferência

Boa noite pessoal,

         Estou com um problema, possuo uma aplicação access onde preciso dar um "print screen" na tela e depois preciso salvar o conteúdo que está na área de transferência em um arquivo BMP ou JPG.

         Consegui dar o print screen pelo VBA mas agora não sei como colocar essa imagem dentro de um JPG ou BMP.

Espero que alguém possa me ajudar


eu encontrei esse código:
Dim clip As Object
Set clip = CreateObject("clipbrd.clipboard")
SavePicture clip.getdata, "C:\Paisagem.bmp"
Set clip = Nothing

mas nessa linha Set clip = CreateObject("clipbrd.clipboard") eu recebo o erro: "O componente active x não pode criar o objeto"

Obrigado

Roberto

Também tive o mesmo problema e depois de pesquisar bastante descobrir que é necessário registrar a seguinte dll "clipboard.dll."

Para registrá-la, faça da seguinte forma:

1. Faça o download do arquivo em anexo e salve na raiz do diretório c:\ ou em qualquer outro diretório, mas vc deverá colocar todo o caminho na linha de comando abaixo.
2. Abra o prompt de comando como Administrador e digite o seguinte comando:

regsvr32 c:\clipboard.dll

ou

regsvr32 "caminho completo"\clipboard.dll

Depois de realizado isto, vc deve receber uma mensagem que a dll foi registrada com sucesso. E aí é só rodar a macro que a mensagem não deve mais aparecer.

Ola amigos,

essa rotina funciona para VBA do Excel ?

Estou tentando e aparece a mensagem de "Valor da propriedade inválido"