電子書籍の厳選無料作品が豊富！

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

受付中

  • 質問者：..15
  • 質問日時：
  • 回答数：1件

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

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

よろしくお願いします。

通報する
質問の本文を隠す
  • 画像を添付する （ファイルサイズ：10MB以内、ファイル形式：JPG/GIF/PNG）
  • 今の自分の気分スタンプを選ぼう！
あと4000文字

A 回答 (1件)

No.1

  • 回答者： fujillin
  • 回答日時：

こんばんは



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

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

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

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう！

Q質問する（無料）

ページトップページトップ

Q質問する（無料）

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

おすすめ情報