二维坐标轴
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