Boa tarde !
Gostaria de saber se é possível de alguma forma copiar a imagem (clipboard) da área de transferência (ctrl c) para uma label dentro de um form.
Achei um código que faz exatamente o que preciso com textos e o exibe em uma msgbox, preciso da mesma coisa porém com imagens, e gostaria que isso fosse feito de uma maneira que não precise salvar a imagem em um diretório da máquina, se necessário colaria dentro da própria planilha.
Segue o código que citei fazendo o mesmo com textos:
Private Sub UserForm_Activate()
Const CF_BITMAP = 2 ' Define o formato bitmap
Dim Msg As String ' Declara a variavel
On Error Resume Next ' trata os erros continuando a execução
Dim objClipBoard As Object
Dim lngCounter As Long
Set objClipBoard = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
objClipBoard.GetFromClipboard
For lngCounter = 1 To UBound(Application.ClipboardFormats)
If Application.ClipboardFormats(lngCounter) = xlClipboardFormatText Then
MsgBox objClipBoard.GetText(lngCounter)
End If
Next lngCounter
Set objClipBoard = Nothing
End Sub
Postado : 04/03/2015 10:08 am