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

質問

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

回答No.2

xls88 · ベストアンサー

「軸の書式設定」で、最大値、最小値などを変更する作業を「マクロの記録」すればどうでしょうか。
例えば、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

回答No.1

umazanpai

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

お礼

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