Doing PrintScreen with code...

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal _
bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Private Const KEYEVENTF_KEYUP = &H2
Private Const VK_SNAPSHOT = &H2C
Private Const VK_MENU = &H12

Sub AltPrintScreen()
keybd_event VK_MENU, 0, 0, 0
keybd_event VK_SNAPSHOT, 0, 0, 0
keybd_event VK_SNAPSHOT, 0, KEYEVENTF_KEYUP, 0
keybd_event VK_MENU, 0, KEYEVENTF_KEYUP, 0
End Sub

Saving it from the clipbooard is en entirely different matter
good luck :)


--
keepITcool
| www.XLsupport.com | keepITcool chello nl | amsterdam


Amedee Van Gasse wrote :

Robert wrote:

Hi,

Anyone got any ideas on how to save a userform through VBA as a gif?
Found plenty on saving a chart as a gif, but can't figure out how to
do the same with a userform.

Thanks

I don't want to sound silly, but... how about taking a screenshot?
Using PrtSc, one of the grey keys on the top of your keyboard you
almost never use. And then you paste it in your favorite image editing
software.
Or use image editing software to take screenshots. I use Paint Shop
Pro a lot for taking screenshots of forms, because it gives me the
possibility to capture only a single screen object and not the entire
screen.

PS: I write a lot of user manuals at work, with *a lot* of screenshots
and examples.