Copy & paste image from UserForm (repost)

[Paul Martin]

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?

I have received a post that enables copy to Office Clipboard, but I
want to copy to the Windows clipboard.

Thanks in advance


Paul Martin
Melbourne, Australia

 

[Paul Martin]

For the benefit of others, I have received information elsewhere that
appears to answer my question (I haven't tested it yet).

Thanks to Stephen Bullen who has directed me to this URL at Dick's
Clicks:
<www.dicks-blog.com/archives/2004/12/07/using-copypaste-in-userforms>

Regards

Paul Martin
Melbourne, Australia

 

[Michel Pierron]

Hi Paul,
See "Capture part of screen" post of benitAAvi.
MP

 

[Paul Martin]

Hi Michel

Thanks, but the code at
<http://msdn.microsoft.com/newsgroup...daf42e-e33b-44a4-97f0-b487be84a03d&sloc=en-us>
appears to do the same as Atl-PrtScr, copying the UserForm. I want to
copy just the Image on the form, not the whole form.

Regards

Paul Martin
Melbourne, Australia

 

[Michel Pierron]

Yes Paul, you are right.
In what the first procedure doesn't give you satisfaction?
If it is the presence of the Office Clipboard, you can mask it afterwards
immediately.

Option Explicit
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 CommandButton1_Click()
On Error Resume Next
Application.CommandBars.FindControl(1, 809).Execute
Dim hCopy&
OpenClipboard 0&: EmptyClipboard
hCopy = SetClipboardData(2, Me.Image1.Picture.handle)
CloseClipboard
Application.CommandBars.FindControl(1, 5746).Execute
' Test procedure
If hCopy Then PasteInWord
End Sub

Sub PasteInWord()
With CreateObject("Word.Application")
..Visible = True
..Documents.Add
..Selection.Paste
End With
End Sub

Regards,
MP

 

[Paul Martin]

Hi Michel

Thanks for your persistence in offering ideas, but it's not the
solution I'm after.

Regards

Paul Martin
Melbourne, Australia

 

[Paul Martin]

Michel

I have tried your code and it works fine in Excel 2003 but fails in
Excel 2000, at Application.CommandBars.FindControl.

Any suggestions?

Private Const OFFICE_CLIPBOARD = 809

Private Sub CopyImageToOfficeClipboard()
Dim hCopy As Long

On Error GoTo ExitSub
Application.CommandBars.FindControl(, OFFICE_CLIPBOARD).Execute
OpenClipboard 0&
EmptyClipboard
hCopy = SetClipboardData(2, imgLargeChart.Picture.Handle)
CloseClipboard

ExitSub:

End Sub



Regards

Paul Martin
Melbourne, Australia