Excelマクロで画像をほぼ自動で貼り付け

http://www2.odn.ne.jp/excel/waza/macro.html#SEC27
メモ

追加でメモ
http://homepage3.nifty.com/bear/vbatec/vbatec101.htm

Sub Macro1()
On Error GoTo ErrorHandler
With Application
.InputBox(Prompt:="セルを選択してください" _
, Title:="画像貼り付け", Type:=8).Select
.Dialogs(xlDialogInsertPicture).Show
End With
ErrorHandler:
End Sub

(ﾟдﾟ)ｳﾏｰ