ExcelVBAを使用してグラフ（横棒）描画をしたが、グラフサイズは統

質問

ExcelVBAを使用してグラフ（横棒）描画をしたが、グラフサイズは統一できましたが、グラフ内のプロトエリアが項目軸の内容（文字数）で大きさが事なってしまう。　
複数のグラフを並べて、項目軸の内容に係わらず、全ての大きさをそろえる方法を教えてください。Excel2000を使用

回答No.1

NMZ1985 · ベストアンサー

Excelのマクロ保存より作成

'アクティブチャートにあるグラフを選択
ActiveChart.PlotArea.Select

'アクティブチャートにあるグラフの項目軸を選択
ActiveChart.Axes(xlCategory).Select

'アクティブチャートにあるグラフの項目軸のフォント設定
Selection.TickLabels.AutoScaleFont = True　'自動サイズの有無
With Selection.TickLabels.Font　'フォント設定
.Name = "ＭＳ Ｐ明朝"
.FontStyle = "太字"
.Size = 9
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 1
.Background = xlOpaque
End With

全てのグラフに対して
.Name = "ＭＳ Ｐ明朝"
.FontStyle = "太字"
.Size = 9
とすれば、フォント「Ｓ Ｐ明朝」かつフォントスタイル「太字」でフォントサイズ「9ポイント」のグラフができるとおもいます。

お礼

回答ありがとうございました。
返事が遅くなり申し訳ございません。
上記、コードを使用させていただきましたが、項目軸の文字数によりやはりグラフ部の大きさは変更されます。ん・・・・・