グラフのX軸の範囲を自動で変えたい

質問

グラフのX軸の範囲は通常で1から6なのですが、
データによっては1から5を表示させることがあります。
今まで手動でX軸の範囲を変えていたのですが、
VBAを使って自動で変更することは出来ますでしょうか?

回答No.1

chie65536（@chie65535） · ベストアンサー

＞今まで手動でX軸の範囲を変えていたのですが

X軸（横軸）はデータ件数で固定なので、変える事はできません。

手動で変えられるのはX軸ではなくY軸（縦軸）なので、Y軸を変えるという前提で回答します。

Sub Macro1()
　　ActiveSheet.ChartObjects("グラフ 1").Activate
　　ActiveChart.ChartArea.Select
　　ActiveChart.Axes(xlValue).Select
　　With ActiveChart.Axes(xlValue)
　　　　.MinimumScale = 1
　　　　.MaximumScale = 5
　　End With
End Sub