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

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

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

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

No.1 ベストアンサー 回答者： xls88 回答日時： 2008/12/20 17:33

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

マクロは駄目でしょうか。
下記のようなコードでフォントサイズが変更できました。
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文などで全グラフをループすれば良いとおもいます。

この回答へのお礼

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

お礼日時：2008/12/20 19:03

No.2 回答者： xls88 回答日時： 2008/12/21 22:06

≪参考≫

Sub test()
　　Dim chtobj As Object

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

この回答へのお礼

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

お礼日時：2009/01/05 23:26