Excel VBAで全ての矢印を赤色に変更する方法

下記のオートシェイプの色を全て赤色に変更する方法をお教えください。

'33 msoShapeRightArrow 右向きブロック矢印
'34 msoShapeLeftArrow 左向きブロック矢印
'35 msoShapeUpArrow 上向きブロック矢印
'36 msoShapeDownArrow 下向きブロック矢印

よろしくお願いします。

質問者からの補足コメント

• すみません、VBA初心者すぎて分かっていません。
  
  ActiveSheet.Ovals.Select
  With Selection.ShapeRange.Line
  .Visible = msoTrue
  .ForeColor.RGB = RGB(255, 0, 0)
  .Transparency = 0
  End With
  
  上記の様に
  '33 msoShapeRightArrow 右向きブロック矢印
  で書く方法はないですか？
  
  よろしくお願いします。

    補足日時：2024/07/11 01:04

No.1 回答者： fujillin 回答日時： 2024/07/10 00:07

こんばんは

シート内のオートシェイプが対象でよいのなら、
　Worksheet.Shapes
でオートシェイプ全体を取得できますので、それらを順にチェックして色を設定するようにすれば良いです。

ご提示のシェイプの種別は
　Shape.AutoShapeType
で取得できますので、「ご指定のものに該当していたら色を変える」というロジックにしておけば良いでしょう。

例えば「塗り色」の場合であれば
　Shape.Fill.ForeColor.RGB = vbRed
のように指定をすれば、そのオブジェクトの色を赤にできます。