62,074
社区成员
发帖
与我相关
我的任务
分享
ActiveChart.SetSourceData Source:=Range("Sheet1!$A$1:$G$3")
……
ActiveChart.Axes(xlValue).MajorGridlines.Select
……
ActiveChart.Axes(xlCategory, xlSecondary).Select
ActiveChart.Axes(xlCategory, xlSecondary).MinimumScale = 0
ActiveChart.Axes(xlCategory, xlSecondary).MaximumScale = 8
ActiveChart.Axes(xlCategory, xlSecondary).MaximumScale = 6
Selection.MajorTickMark = xlNone
Selection.TickLabelPosition = xlNone