If Not Clipboard.GetData(vbCFBitmap) = 0 Then '如果返回的不是0 SavePicture Clipboard.GetData(vbCFBitmap), "c:\aa.bmp" '保存图像 End If
Dim pPic As StdPicture Set pPic = Clipboard.GetData If pPic Is Nothing Or pPic.Handle = 0 Then Else SavePicture pPic, "c:\test.bmp" End If