Notifications
Clear all

Copiar imagem da área de transferência para form

4 Posts
3 Usuários
0 Reactions
1,280 Visualizações
(@gustavooo)
Posts: 17
Active Member
Topic starter
 

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
(@gustavooo)
Posts: 17
Active Member
Topic starter
 

ninguém ?

 
Postado : 09/03/2015 5:48 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia Gustavo

Leia:

viewtopic.php?f=7&t=12600

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 09/03/2015 6:43 am
selmo
(@selmo)
Posts: 236
Estimable Member
 

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

 
Postado : 11/03/2015 5:44 pm