散布グラフのサイズの適正化

添付画像のようにグラフ実体に対してグラフエリアが大きすぎる場合、適正にするにはどのようなコードが考えられるでしょうか。ご教示ください。

No.2 ベストアンサー 回答者： xls88 回答日時： 2008/12/14 17:22

「軸の書式設定」で、最大値、最小値などを変更する作業を「マクロの記録」すればどうでしょうか。

例えば、X軸の場合、下記のようなコードが得られました。

ActiveSheet.ChartObjects("グラフ 1").Activate
ActiveChart.Axes(xlCategory).Select
ActiveChart.Axes(xlCategory).MinimumScale = 4
ActiveChart.Axes(xlCategory).MaximumScale = -10
ActiveChart.Axes(xlCategory).MajorUnit = 2

この回答へのお礼

ありがとうございました。自分なりに行なって下記コードでよしとしました。
ActiveChart.Axes(xlCategory).MinorGridlines.Select
With ActiveChart.Axes(xlCategory)
.MinimumScale = -2
.MaximumScale = 2
.MinorUnit = 0.2
.MajorUnit = 1
.Crosses = xlAutomatic
.ReversePlotOrder = False
.ScaleType = xlLinear
.DisplayUnit = xlNone
End With
ActiveChart.Axes(xlValue).Select
With ActiveChart.Axes(xlValue)
.MinimumScale = -2
.MaximumScale = 2
.MinorUnit = 0.2
.MajorUnit = 1
.Crosses = xlAutomatic
.ReversePlotOrder = False
.ScaleType = xlLinear
.DisplayUnit = xlNone
End With

お礼日時：2008/12/14 23:45

No.1 回答者： umazanpai 回答日時： 2008/12/14 16:34

XYともに最大値最小値を調整すればよさそう。

この回答へのお礼

ありがとうございました。

お礼日時：2008/12/14 23:46