vba 设置坐标轴

1.辅助线虚线

ActiveSheet.ChartObjects("图表1").Activate

ActiveChart.Axes(xlValue).Select

ActiveChart.Axes(xlValue).MajorGridlines.Select

With Selection.Format.Line

　　.Visible = msoTrue

　　.DashStyle = msoLineDash

End With

2.x轴坐标向右

ActiveChart.ChartArea.Select

ActiveChart.Axes(xlCategory).Select

Seletion.MajorTickMark = xlInside

3.Y轴坐标向上

Selection.MajortickMark = xlInside