Sub insert_artfile()
	ActiveSheet.Pictures.Insert("C:\My Documents\file1.jpg").Select
	'マイドキュメントのfile1を張り付けます
End Sub