Hi
I have mislaid the bitmap used on a form. Is it possible to 'recover' the
image from the form itself?

Geoff

Well that was careless wasn't it !

Drag your form into a new project, remove all controls, PictureSizeMode=0,
size the form to at least the size of the picture, maybe change
PictureAlignment. You've probably got some image app that has a screen
capture facility. If not try this in the form.

Private Declare Sub keybd_event Lib "user32" ( _
ByVal bVk As Byte, _
ByVal bScan As Byte, _
ByVal dwFlags As Long, _
ByVal dwExtraInfo As Long)
Const VK_SNAPSHOT = 44 ' &H2C
Const VK_LMENU = 164
Const KEYEVENTF_KEYUP = 2
Const KEYEVENTF_EXTENDEDKEY = 1

Private Sub UserForm_Click()
DoEvents
keybd_event VK_LMENU, 0, KEYEVENTF_EXTENDEDKEY, 0 ' key down
keybd_event VK_SNAPSHOT, 0, KEYEVENTF_EXTENDEDKEY, 0
keybd_event VK_SNAPSHOT, 0, KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP, 0
keybd_event VK_LMENU, 0, KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP, 0
DoEvents
MsgBox "Form image in Clipboard"
End Sub

Paste into an image processor that can crop the bmp from the image of the
form, I use IrfanView.com

Regards,
Peter T


"Geoff" wrote in message
...
Hi
I have mislaid the bitmap used on a form. Is it possible to 'recover' the
image from the form itself?

Geoff

Both Andy's and Michel's suggestions are much better than this one!

Regards,
Peter T

"Peter T" <peter_t@discussions wrote in message
...
Well that was careless wasn't it !

Drag your form into a new project, remove all controls, PictureSizeMode=0,
size the form to at least the size of the picture, maybe change
PictureAlignment. You've probably got some image app that has a screen
capture facility. If not try this in the form.

Private Declare Sub keybd_event Lib "user32" ( _
ByVal bVk As Byte, _
ByVal bScan As Byte, _
ByVal dwFlags As Long, _
ByVal dwExtraInfo As Long)
Const VK_SNAPSHOT = 44 ' &H2C
Const VK_LMENU = 164
Const KEYEVENTF_KEYUP = 2
Const KEYEVENTF_EXTENDEDKEY = 1

Private Sub UserForm_Click()
DoEvents
keybd_event VK_LMENU, 0, KEYEVENTF_EXTENDEDKEY, 0 ' key down
keybd_event VK_SNAPSHOT, 0, KEYEVENTF_EXTENDEDKEY, 0
keybd_event VK_SNAPSHOT, 0, KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP,
0
keybd_event VK_LMENU, 0, KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP, 0
DoEvents
MsgBox "Form image in Clipboard"
End Sub

Paste into an image processor that can crop the bmp from the image of the
form, I use IrfanView.com

Regards,
Peter T


"Geoff" wrote in message
...
Hi
I have mislaid the bitmap used on a form. Is it possible to 'recover'
the
image from the form itself?

Geoff

But thank you for your response as well. It did work - of course.

And both were so quick and simple to implement.

Geoff

"Peter T" wrote:

Both Andy's and Michel's suggestions are much better than this one!

Regards,
Peter T

"Peter T" <peter_t@discussions wrote in message
...
Well that was careless wasn't it !

Drag your form into a new project, remove all controls, PictureSizeMode=0,
size the form to at least the size of the picture, maybe change
PictureAlignment. You've probably got some image app that has a screen
capture facility. If not try this in the form.

Private Declare Sub keybd_event Lib "user32" ( _
ByVal bVk As Byte, _
ByVal bScan As Byte, _
ByVal dwFlags As Long, _
ByVal dwExtraInfo As Long)
Const VK_SNAPSHOT = 44 ' &H2C
Const VK_LMENU = 164
Const KEYEVENTF_KEYUP = 2
Const KEYEVENTF_EXTENDEDKEY = 1

Private Sub UserForm_Click()
DoEvents
keybd_event VK_LMENU, 0, KEYEVENTF_EXTENDEDKEY, 0 ' key down
keybd_event VK_SNAPSHOT, 0, KEYEVENTF_EXTENDEDKEY, 0
keybd_event VK_SNAPSHOT, 0, KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP,
0
keybd_event VK_LMENU, 0, KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP, 0
DoEvents
MsgBox "Form image in Clipboard"
End Sub

Paste into an image processor that can crop the bmp from the image of the
form, I use IrfanView.com

Regards,
Peter T


"Geoff" wrote in message
...
Hi
I have mislaid the bitmap used on a form. Is it possible to 'recover'
the
image from the form itself?

Geoff

Hi,

In the Properties window go to the Picture property of the control that
contains the image.
CTRL+C to copy the image.
Now paste the image into Paint or some other graphics package that will
allow you to save the image.

Cheers
Andy

--

Andy Pope, Microsoft MVP - Excel
http://www.andypope.info
"Geoff" wrote in message
...
Hi
I have mislaid the bitmap used on a form. Is it possible to 'recover' the
image from the form itself?

Geoff

Thanks, that saved the 'day'.... and the image. <g

Geoff

"Andy Pope" wrote:

Hi,

In the Properties window go to the Picture property of the control that
contains the image.
CTRL+C to copy the image.
Now paste the image into Paint or some other graphics package that will
allow you to save the image.

Cheers
Andy

--

Andy Pope, Microsoft MVP - Excel
http://www.andypope.info
"Geoff" wrote in message
...
Hi
I have mislaid the bitmap used on a form. Is it possible to 'recover' the
image from the form itself?

Geoff

Hi Geoff,
With a button on the userform:

Private Sub CommandButton1_Click()
Select Case Me.Picture.Type
Case 1: SavePicture Me.Picture, "c:\SaveImg.bmp"
Case 2, 4: SavePicture Me.Picture, "c:\SaveImg.wmf"
End Select
End Sub

"Geoff" a écrit dans le message de
...
Hi
I have mislaid the bitmap used on a form. Is it possible to 'recover' the
image from the form itself?

Geoff

Hi Michael
Neat. Thanks for that.

Geoff

"Michel Pierron" wrote:

Hi Geoff,
With a button on the userform:

Private Sub CommandButton1_Click()
Select Case Me.Picture.Type
Case 1: SavePicture Me.Picture, "c:\SaveImg.bmp"
Case 2, 4: SavePicture Me.Picture, "c:\SaveImg.wmf"
End Select
End Sub

"Geoff" a écrit dans le message de
...
Hi
I have mislaid the bitmap used on a form. Is it possible to 'recover' the
image from the form itself?

Geoff