Re: Saving Userform as Gif

From: keepITcool (xrrcvgpbby_at_puryyb.ay)
Date: 07/22/04 

Date: Thu, 22 Jul 2004 02:50:18 -0700

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.