Sub 画像縮小貼付 縦横比固定のサイズb excel 2010 dim strfilter as string dim 画像ファイル as variant dim 画像ファイルb as variant dim tate as single dim yoko as single dim top as single. Excel vba tips ワークシート上に画像を挿入するには 次のようにします sub macro1 activesheet pictures insert c work sample1 jpg end sub.