VBA Dog編
【2】EXCEL2007でワークシートに画像を読み込む
画像を読み込むには.Pictures.Insertを使いたいがEXCEL2007ではエラーとなるので.Shapes.AddPicture
を使用しました。
Dim w_shap As Shape
With WorkSheets(1)
'.Pictures.Insert(fname).Select これはEXCEL2007でエラーになる
'↓EXCEL2007対応
Set w_shap = .Shapes.AddPicture(fname, False, True, 0, 0, 100, 100)