2010-01-18から1日間の記事一覧
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%C…