Sub insert_clipart()
	ActiveSheet.Pictures.Insert( _
	'画像を挿入します
        "c:\Program Files\Common Files\Microsoft Shared\Clipart\themes1\Bullets\BD14565_.GIF" _
        ).Select
	'画像の場所を指定します
End Sub