VBA设置图表坐标轴最大最小范围

二维坐标轴

Sub Axis()


Set sht = Worksheets("sheet1")
Set chart1 = sht.ChartObjects("图表 1")

chart1.Chart.Axes(xlValue).MinimumScale = 1
chart1.Chart.Axes(xlValue).MaximumScale = 10

End Sub

三维坐标轴

Sub Axis()

Set sht = Worksheets("sheet1")
Set chart1 = sht.ChartObjects("图表 1")

'右边坐标轴为次坐标轴
max = chart1.Chart.Axes(xlValue, xlSecondary).MaximumScale
Min = chart1.Chart.Axes(xlValue, xlSecondary).MinimumScale

'左边为主要坐标轴
chart1.Chart.Axes(xlValue).MinimumScale = min/10
chart1.Chart.Axes(xlValue).MaximumScale = max/10

'设置主坐标轴横坐标交叉的坐标轴值
chart1.Chart.Axes(xlValue).CrossesAt = Min / 10

End Sub