シートを丸ごと画像として保存する
Sub printScreen() Dim WshShell As Object Set WshShell = CreateObject("WScript.Shell") WshShell.Run "C:\xxx\CapWrite.exe /C3 /W2 /A5", 1, True Set WshShell = Nothing End Sub
CapWriteダウンロード
http://wiki.livedoor.jp/kisstys/d/%B2%E8%CC%CC%A5%AD%A5%E3%A5%D7%A5%C1%A5%E3%A4%F2%BB%A3%A4%EB