エクセルの画像をズラすマクロ

Question

数枚のエクセルシートがあり、そこに貼り付けてある画像がそれぞれ1枚ずつあります。
その画像に赤枠をつけて、キーボードの矢印キーで、下に5右に5ずらしていきます。
それをループさせて全シートの処理を行おうと思っています。
うまくいかないのですが、どこが間違ってるか教えて頂けませんか？

Sub macro1
　Dim i As integer

    For i ＝ 1 to worksheets.count
       
　　selection.shaperange.incrementleft 3.75
       selection.shaperange.incrementtop 3.75

　　ActiveSheet.Shapes
　　With Selection.ShapeRange.Line
　　　.ForeColor.RGB = RGB(255, 0, 0) 
　　　.Weight = 2.25 
　　End With

    Next i
End Sub

Answer 1

うまくいかないも何もそもそもエラー出てないでしょうか？
何が間違っているかは他の方が解説してくれているのでそちらを参照してください。
とりあえずこんな感じでできますよというサンプルコードを載せておきます。
参考にしてください。
以下のコードではシート内全図形に対して処理をします。

Sub macro1()
    Dim i As Integer
    Dim shp As Shape

    For i = 1 To Worksheets.Count
        For Each shp In Worksheets(i).Shapes
            With shp
                .IncrementLeft 3.75
                .IncrementTop 3.75
                .Line.ForeColor.RGB = RGB(255, 0, 0)
                .Line.Weight = 2.25
            End With
        Next
    Next i

End Sub

Comments

[退会済みユーザー]

わざわざサンプルコード書いて頂きありがとうございます！
こちらを参考にして組み立てたところ思うようにいきました！ありがとうございました！

Answer 2

どこが間違ってるか教えて頂けませんか？

それでは間違えている点を回答します。

まずここは良いのですが

For i ＝ 1 to worksheets.count

その後

selection　...

と記載があります。
「selection」は「現在表示されているシートの選択されている範囲」という事です。
選択範囲の操作
でもせっかく「For Next」でワークシートのループを作ったのに
ワークシートの選択を行っていない。
VBA シートを選択またはアクティブにする
その為に処理がうまくいかないのです。

あと図形ですがシートを切り替えたら必ず選択されているとは限りません
ShapeRange オブジェクト (Excel)

Excel VBA 図形の参照
ワークシートの様に検索しましょう。

Comments

[退会済みユーザー]

ワークシートの選択と、図形の選択という観点が足りてなかったんですね。
ありがとうございます！！