[[20210430224353]]　『オートシェイプの文字の色付けマクロ』（次郎）　ページの最後に飛ぶ

『オートシェイプの文字の色付けマクロ』（次郎）

オートシェイプを右クリックで選択したオートシェイプ
を赤い文字に変更をマクロで出来ませんか？
選択するオートシェイプは何個もあり左クリックで
選択したものだけを色を青く変えたいたいのですが出来ますか？
よろしくお願いします

＜使用 Excel：Excel2010、使用 OS：Windows10 ＞

application.caller
てを処理すればいいと思います。
シェイプのテキストの色変更自体は
過去ログにたくさん事例があるとおもいます。
（通りすがり） 2021/04/30(金) 23:23

 > 選択するオートシェイプは何個もあり左クリックで
 > 選択したものだけを色を青く変えたいたいのですが出来ますか？

 Ctrlキーを押しながら順次左クリックし、
 （もしくは、「オブジェクトの選択」にしてまとめて選択し、）
 その状態で、下記のtestマクロを実行します。

 Sub test()
     Dim shp As Object
     For Each shp In Selection
         With shp.ShapeRange.TextFrame2.TextRange.characters.Font.Fill
             .ForeColor.RGB = RGB(0, 0, 255)  '青
            ' .ForeColor.RGB = RGB(255, 0, 0) '赤
         End With
     Next
 End Sub

（γ） 2021/05/01(土) 08:09

セルのフォント色と同じように

１）図形を選択
２）リボンの「ホーム」タブで好きな色をクリック

これで一括で変更できますが
それでもマクロが必要でしょうか？

（マナ） 2021/05/01(土) 09:44

あ、そのとおりでしたね。
しかも、文字列の特定色の部分を別の色に変更するマクロを加工したので、
charactersという余計なものが残ってしまっています。
残念な投稿でした。
（γ） 2021/05/01(土) 12:07

コメント返信：

[ 一覧(最新更新順) ]

[[20210430224353]] 『オートシェイプの文字の色付けマクロ』（次郎） ページの最後に飛ぶ

[[20210430224353]]　『オートシェイプの文字の色付けマクロ』（次郎）　ページの最後に飛ぶ