写真データのはりつけ マクロ実行で貼り付けすると セルの位置や大きさが変わってしまう

Question

別ファイルの写真データを、指定のセルにきめられた大きさで貼り付けさせるマクロを作成しています。

ステップインで操作すると指定した場所に張り付けられますが、マクロ実行するとセルの位置や大きさが全然違うようになってしまい、困ってます。

マクロ動作したときでも指定した場所にきちんと張り付ける方法をご存じの方がいればお教えください。

コード
Sub 写真データ()
'写真イメージ（表示札）を指定した範囲にはりつける

                  Dim sheet As Worksheet
                  Dim filePath As String
                  Dim targetRange As Range
                  Dim picture As Shape
                  Dim targetRangeHeight, targetRangeWidth As Single
                  Set sheet = ThisWorkbook.Worksheets("シート")
                ' ファイルパス
                    filePath = "C:\Users\Pictures\" & "1" & "-1.Jpg"
                ' 貼り付ける範囲を指定する
                  Set targetRange = Range("B1")
                                 
                '詳細設定を変数に投入
                  Set picture = sheet.Shapes.AddPicture( _
                    Filename:=filePath, _
                    LinkToFile:=msoFalse, _
                    SaveWithDocument:=msoTrue, _
                    Left:=targetRange.Left, _
                    Top:=targetRange.Top, _
                    Width:=targetRange.Width, _
                    Height:=targetRange.Height)

End Sub

Answer 1

Set targetRange = sheet.Range("B1")

Comments

[yogina]

有難うございます！かならずシートまでしていしてあげないといけないのですね。
おもいどおりに動かせました。ありがとうございました。

[jinoji]

指定しない場合はその時点でアクティブなシートのセルということになるので、意図と違う動きになる場合があります。

[yogina]

そうだったんですね＾＾；　
ご丁寧に教えてくださってありがとうございました。