Copy picture from image control

I have an Excel addin that contains an image control on a userform. When
the addin is run, I would like to copy the picture from the image control to
a worksheet. What I would like to do is ActiveSheet.pictures.add
Image1.Picture, but of course this doesn't work.

Any suggestions?

Where did the image control get the picture - it is usually from a file -
couldn't you import the image from the file?

--
Regards,
Tom Ogilvy

"Ian" <notreadingyourcrap@hotmail.com> wrote in message
news:ufL0j3sCFHA.3100@TK2MSFTNGP09.phx.gbl...
> I have an Excel addin that contains an image control on a userform. When
> the addin is run, I would like to copy the picture from the image control
to
> a worksheet. What I would like to do is ActiveSheet.pictures.add
> Image1.Picture, but of course this doesn't work.
>
> Any suggestions?
>
>

Yes, but then I would need to distribute the file with the addin, which I
don't want to do.

"Tom Ogilvy" <twogilvy@msn.com> wrote in message
news:#Y$DwOuCFHA.3424@TK2MSFTNGP14.phx.gbl...
> Where did the image control get the picture - it is usually from a file -
> couldn't you import the image from the file?
>
> --
> Regards,
> Tom Ogilvy
>
> "Ian" <notreadingyourcrap@hotmail.com> wrote in message
> news:ufL0j3sCFHA.3100@TK2MSFTNGP09.phx.gbl...
> > I have an Excel addin that contains an image control on a userform.
When
> > the addin is run, I would like to copy the picture from the image
control
> to
> > a worksheet. What I would like to do is ActiveSheet.pictures.add
> > Image1.Picture, but of course this doesn't work.
> >
> > Any suggestions?
> >
> >
>
>

Hi ,
May be:

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

Sub ImageCopy()
Dim iPic As StdPicture, hCopy&
Set iPic = UserForm1.Image1.Picture
OpenClipboard 0&: EmptyClipboard
hCopy = SetClipboardData(2, iPic.handle)
CloseClipboard
If hCopy Then
ActiveSheet.Cells(1, 1).Select
ActiveSheet.Paste
' Save image on disk:
'SavePicture iPic, "c:\Recup.bmp"
End If
DestroyIcon iPic.handle
Set iPic = Nothing
End Sub

Regards,
MP

"Ian" <notreadingyourcrap@hotmail.com> a écrit dans le message de
news:ufL0j3sCFHA.3100@TK2MSFTNGP09.phx.gbl...
> I have an Excel addin that contains an image control on a userform. When
> the addin is run, I would like to copy the picture from the image control
to
> a worksheet. What I would like to do is ActiveSheet.pictures.add
> Image1.Picture, but of course this doesn't work.
>
> Any suggestions?
>
>

Excellent! That is exactly what I needed. Thank you.

"Michel Pierron" <michel.pierron@free.fr> wrote in message
news:O4AUuSvCFHA.4020@TK2MSFTNGP14.phx.gbl...
> Hi ,
> May be:
>
> Private Declare Function OpenClipboard& _
> Lib "user32" (ByVal hwnd As Long)
> Private Declare Function EmptyClipboard _
> Lib "user32" () As Long
> Private Declare Function SetClipboardData& _
> Lib "user32" (ByVal wFormat&, ByVal hMem&)
> Private Declare Function CloseClipboard& _
> Lib "user32" ()
> Private Declare Function DestroyIcon& _
> Lib "user32" (ByVal hIcon&)
>
> Sub ImageCopy()
> Dim iPic As StdPicture, hCopy&
> Set iPic = UserForm1.Image1.Picture
> OpenClipboard 0&: EmptyClipboard
> hCopy = SetClipboardData(2, iPic.handle)
> CloseClipboard
> If hCopy Then
> ActiveSheet.Cells(1, 1).Select
> ActiveSheet.Paste
> ' Save image on disk:
> 'SavePicture iPic, "c:\Recup.bmp"
> End If
> DestroyIcon iPic.handle
> Set iPic = Nothing
> End Sub
>
> Regards,
> MP
>
> "Ian" <notreadingyourcrap@hotmail.com> a écrit dans le message de
> news:ufL0j3sCFHA.3100@TK2MSFTNGP09.phx.gbl...
> > I have an Excel addin that contains an image control on a userform.
When
> > the addin is run, I would like to copy the picture from the image
control
> to
> > a worksheet. What I would like to do is ActiveSheet.pictures.add
> > Image1.Picture, but of course this doesn't work.
> >
> > Any suggestions?
> >
> >
>