VBA截屏保留

VBA截屏保存VBA中如何实现截屏，再把截屏保存为图片。有无大虾知道的，帮帮我——解决方案——————————————————–

PrivateSubCommand1_Click()DimlDesktopAsLongDimlDCAsLongfrmMain.AutoRedraw=TruefrmMain.ScaleMode=1lDesktop=GetDesktopWindow()'取得桌面窗口Picture1.AutoRedraw=TruelDC=GetDC(lDesktop)'取得桌面窗口的设备场景BitBltPicture1.hDC,0,0,Screen.Width,Screen.Height,lDC,0,0,vbSrcCopy'将桌面图象绘制到窗体SavePicturePicture1.Image,"D:\1.bmp"EndSub

——解决方案——————————————————–‘┏〓〓〓〓〓〓〓〓ApiGetClipBmp函数相关定义声明等StartPrivateDeclareFunctionGetClipboardDataLib”user32″(ByValwFormatAsLong)AsLongPrivateDeclareFunctionCloseClipboardLib”user32″()AsLongPrivateDeclareFunctionOpenClipboardLib”user32″(ByValhwndAsLong)AsLongPrivateDeclareFunctionOleCreatePictureIndirectLib”olepro32.dll”(PicDescAsPicBmp,RefIIDAsGuid,ByValfPictureOwnsHandleAsLong,IPicAsIPicture)AsLongPrivateConstCF_BITMAP=2PrivateTypePicBmpSizeAsLongTypeAsLonghBmpAsLonghPalAsLongReservedAsLongEndTypePrivateTypeGuidData1AsLongData2AsIntegerData3AsIntegerData4(0To7)AsByteEndType’┗〓〓〓〓〓〓〓〓ApiGetClipBmp函数相关定义声明等End’┏〓〓〓〓〓〓〓〓〓ApiGetClipBmp,start〓〓〓〓〓〓〓〓〓┓’［简介］：’API方式获取剪贴板图像，可用于VBA等方式截图保存FunctionApiGetClipBmp()AsIPicture'[mycode_id:2042],edittime:2011-9-11下午01:04:32OnErrorResumeNextDimPicAsPicBmp,IID_IDispatchAsGuidOpenClipboard0’OpenClipboardWithIID_IDispatch.Data1=&H20400.Data4(0)=&HC0.Data4(7)=&H46EndWithWithPic.Size=Len(Pic).Type=1.hBmp=GetClipboardData(CF_BITMAP)EndWith人生没有彩排，每一天都是现场直播