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
ninguém ?
Bom dia Gustavo
Leia:
[]s
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Olá Gustavo, esse tópico já foi discutido algumas vezes por aqui
viewtopic.php?f=10&t=13803
e ainda permanece sem uma solução, infelizmente o que sugere mesmo após varias tentativas, o uso de bibliotecas adicionais, programas, utilização de SendKeys, e varias outras técnicas, mas ainda assim sem resultado, eu mesmo já considerei essa hipotése, e caso encontre algo que funcione, posta ae para estudos e aprimoramentos futuros.
"A mente que se abre a uma nova ideia jamais voltará ao seu tamanho original."
Albert Einstein