Excel 2003 VBA 画像 位置設定

質問

質問させて頂きます。

ActiveWorksheetの任意の位置に画像を貼り付け様としているのですが、実行結果を見ると全く指定した位置に画像が表示されません。
それどころか、実行する度にランダムな位置に画像が表示されてしまいます。

現在記述しているコードは下記です。

　　Worksheets("home").Pictures.Insert("C:\SeaNavi\Weather\Ame.bmp").Select
　　With Selection.ShapeRange
　　.IncrementLeft 200
　　.IncrementTop 10
　　End With

以前は上記コードで別の画像を貼り付けたのですが、上手く出来ました。
つまり指定している画像のパスを変更しただけになります。

なにか解決策があれば対応お願い致します。

回答No.1

end-u · ベストアンサー

Pictures.Insert メソッドの場合、ActiveCellの位置に貼り付けられます。
また、Selection.ShapeRange.IncrementLeft..とは、選択した図形を移動するメソッドですから、
そのコードだけではどうあっても望みのものにはなりません。
実行前に選択しておくセルを指定すれば良い、とも言えますが。

それにver2010以降では Pictures.Insert はリンク貼付けになるように仕様変更されてますから
今から対処しておいたほうが良いかもしれません。

Sub try()
　　Dim r As Range
　　Dim x

　　x = "C:\SeaNavi\Weather\Ame.bmp"
　　'選択方式なら以下と差し替え。
　　'x = Application.GetOpenFilename("jpgFiles(*.jpg),*.jpg")
　　If VarType(x) = vbBoolean Then Exit Sub
　　With Worksheets("home")
　　　　Set r = .Range("C3") '例
　　　　.Shapes.AddPicture Filename:=x, LinkToFile:=False, SaveWithDocument:=True, _
　　　　　　　　　　　　　 Left:=r.Left, Top:=r.Top, Width:=-1, Height:=-1
　　End With
End Sub