Copy image from userform image control to clipboard

[mike0123m]

Is there a way to copy an image from an image control on a userform to the windows clipboard? I just want the image itself versus using alt-print screen. Ultimately, I would like to paste the image into another program so if this can be done with a right click of the mouse button, all the better. Thanks!

 

[Worf]

Hello
See if this example is useful:

Sub To_Clipboard()
Dim obj As OLEObject


Application.ScreenUpdating = False


Set obj = ActiveSheet.OLEObjects.Add(ClassType:="Forms.Image.1", Link:=False, _
DisplayAsIcon:=False, Left:=330, Top:=215, Width:=90, Height:=60)


obj.Name = "Intermediate": obj.Activate


With ActiveSheet.Intermediate
    .Picture = UserForm5.Image1.Picture
    .AutoSize = True
    .CopyPicture        ' to clipboard
End With


obj.Delete
Application.ScreenUpdating = True


End Sub