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" a écrit dans le message de news:
...
Hi Michel

Thanks, but the code at

<http://msdn.microsoft.com/newsgroups...t.public.excel
..programming&mid=bedaf42e-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