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)