场景描述

修改坐标轴区间及交叉位置

代码

1
2
3
4
5
6
7
8
9
10
11
Sub change_pic()
'
' 修改数据图像格式，不需要的可以直接注释或修改参数
'    
    'y轴的显示区间，设置为自动，如果输入自定义，使用.MinimumScale进行赋值
    ActiveChart.Axes(xlValue).MinimumScaleIsAuto = True
    ActiveChart.Axes(xlValue).MaximumScaleIsAuto = True
    'x轴与y轴对齐的y坐标，这里读取了上一步的y轴最小值，即坐标轴放在下方
    ActiveChart.Axes(xlValue).CrossesAt = ActiveChart.Axes(xlValue).MinimumScale
End Sub

许可协议

本文采用 署名-非商业性使用-相同方式共享 4.0 国际 许可协议，转载请注明出处。