VBAでExcelセルをペイントに貼り付ける方法

エクセルのセルをコピー→ペイントに貼り付け→ファイル名入力→デスクトップに保存

この一連をＶＢＡを駆使して、自動化するコードをご紹介します。

Sub test2()

Dim lngTaskID As Long
Range("B1:E11").Copy     　　　　　←Excelのコピーしたいセル範囲を入力
lngTaskID = Shell("mspaint.exe", vbNormalFocus)　　　　　←ペイント起動
Application.Wait Now + TimeValue("00:00:01")　　　　　　　　←起動待ち
AppActivate lngTaskID
SendKeys "^v"　　　　　　　　　　　　　　　　　　　　　　←貼り付け

SendKeys "%f Charichuke", 1000　　　　　　　　　　　　←ファイル名入力
SendKeys Filename, 1000
SendKeys "{enter}", 1000
SendKeys "%f ", 1000
Application.Wait Now + TimeValue("00:00:02")

End Sub

オブジェクトで丸作って、マクロ登録してこのコードを動作するようにすればめちゃんこ楽。

あと、自動でペイント閉じるコード付け足しても良いね！

では、使ってくださいね。