Excel2007のVBAで、ワードアート書式設定を変更する方法を教えてください。

質問

Excel2007のワードアート文字部の配色等の変更をVBAで行いたいのですが、
以前のバージョンで行った方法で実行すると文字部ではなく、
オブジェクトその物が変更されてしまいます。

【以前のバージョンでの記述】
『塗りつぶし』
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(1,1,1)
『線の色、幅』
Selection.ShapeRange.Line.ForeColor.RGB = RGB(1,1,1)
Selection.ShapeRange.Line.Weight = 2
『影の色、位置』
Selection.ShapeRange.Shadow.ForeColor.RGB = RGB(1,1,1)
Selection.ShapeRange.Shadow.IncrementOffsetX 2
Selection.ShapeRange.Shadow.IncrementOffsetY 2

上記記述に変わる方法を教えて下さい。
よろしくお願い致します。

回答No.1

xls88 · ベストアンサー

『塗りつぶし』
Selection.Characters.Font.Color = RGB(1, 1, 1)

『線の色、幅』
Selection.ShapeRange.TextFrame2.TextRange.Font.Line.ForeColor.RGB = RGB(1, 1, 1)
Selection.ShapeRange.TextFrame2.TextRange.Font.Line.Weight = 2

『影の色、位置』
Selection.ShapeRange.TextFrame2.TextRange.Font.Shadow.ForeColor.RGB = RGB(1, 1, 1)
Selection.ShapeRange.TextFrame2.TextRange.Font.Shadow.IncrementOffsetX 2
Selection.ShapeRange.TextFrame2.TextRange.Font.Shadow.IncrementOffsetY 2

上記で、ためしてください。

お礼

解決しました！ありがとうございます。
2007バージョンで上記操作をマクロ記録しても記述されないのは
仕様なのでしょうか？。
以前バージョンではオブジェクト選択だけでもマクロ記録出来たのに…。

回答No.2

xls88

図形とグラフについても「マクロの記録」ができなくなっています。
仕様！ということだと思います。

# 解決処理をよろしくお願いいたします。

お礼

お礼遅くなってすいません。
親切なご解答ありがとうございます。