''''Print Screen
Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _
ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo A
Long)
Public Const VK_SNAPSHOT = &H2C
''''End Print Screen

Sub SaveScreen()
Dim gsChart As Chart
keybd_event VK_SNAPSHOT, 0, 0, 0
Set gsChart = ThisWorkbook.Sheets.Add(Type:=xlChart)
ActiveSheet.Paste
gsChart.Export Filename:="C:\ABC", FilterName:="GIF"
End Sub

Will do the jo

--
Message posted from http://www.ExcelForum.com