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