エクセル2003 グラフのフォントの一括変更

質問

エクセルで、すでに作ってしまった大量のグラフの、フォント、文字のサイズを一括で変更することは出来るでしょうか？？

標準の設定を変えるには、
http://oshiete1.goo.ne.jp/qa2678813.html
ここの2番目の方の回答で分かったのですが、
すでに作ってしまったグラフまではフォント、サイズが変わりません。
グラフが大量にあるので、一括に変更したいです。

どなたか、分かる方、教えてください。

回答No.1

xls88 · ベストアンサー

一括で変更する方法は解りませんでした。

マクロは駄目でしょうか。
下記のようなコードでフォントサイズが変更できました。
ActiveSheet.ChartObjects("Chart 1").Chart.ChartArea.Font.Size = 11
あるいは
ActiveSheet.ChartObjects(1).Chart.ChartArea.Font.Size = 11
グラフ全体に影響するようです。

グラフタイトルのみ変更するなら
ActiveSheet.ChartObjects(1).Chart.ChartTitle.Font.Size = 11
のようになります。

For Each ～ Next文などで全グラフをループすれば良いとおもいます。

お礼

ご回答、どうもありがとうございます！！
マクロはまったく使ったことないので、出来るか分かりませんが、トライしてみようと思います。
ありがとうございました！

回答No.2

xls88

≪参考≫
Sub test()
　　Dim chtobj As Object

　　For Each chtobj In ActiveSheet.ChartObjects
　　　　With chtobj.Chart.ChartArea
　　　　　　.Font.Size = 12
　　　　End With
　　Next
End Sub

お礼

何度も本当にありがとうございます！！