Copy & paste image from UserForm

[pmartin1960]

Hi all

Is there an easy way to enable cut & paste from an image on a UserForm
(to another app, say Word). I have an Image control that displays a
chart GIF. I would like the user to be able to right-click and cut &
paste in the usual Windows manner. Are there some APIs that enable
this?

Thanks in advance

Paul Martin
Melbourne, Australia

 

[Michel Pierron]

Hi pmartin,
You can try:

Private Declare Function OpenClipboard& _
Lib "user32" (ByVal hwnd&)
Private Declare Function EmptyClipboard& _
Lib "user32" ()
Private Declare Function SetClipboardData& _
Lib "user32" (ByVal wFormat&, ByVal hMem&)
Private Declare Function CloseClipboard& _
Lib "user32" ()

Private Sub Image1_MouseDown(ByVal Button% _
, ByVal Shift%, ByVal X!, ByVal Y!)
If Button = 2 Then
On Error GoTo Bug
Application.CommandBars.FindControl(ID:=809).Execute
Dim hCopy&
OpenClipboard 0&
EmptyClipboard
hCopy = SetClipboardData(2, Me.Image1.Picture.Handle)
CloseClipboard
Me.Image1.Picture = LoadPicture("")
Me.Repaint
End If
Bug:
End Sub

MP

 

[Paul Martin]

Hi Michel

Thanks for your response, which is not quite what I'm after. Your code
opens the Office Clipboard, but it is not pasting anything to it when I
tried it. If I were to pursue this path, I would need to be able to
define the name or caption of the object in the clipboard.

What I would really like is to right-click the image object on the
form, copy and paste to say Word or some other app.

Regards

Paul Martin
Melbourne, Australia