excel录制宏的运行时错误

我想创建一个有两条横线和一条直线（用于参考线）的图表，我想记录一个宏来完成这项工作（因为我需要为许多不同的电子表格完成这项工作）。我对excel中的宏非常陌生-我主要在SAS中工作。错误在第一个selection.MajorTickMark语句中—我得到一个运行时错误438：

Sub Macro4()
    ActiveSheet.ChartObjects("Chart 1").Activate
    ActiveChart.Axes(xlValue, xlSecondary).Select
    ActiveSheet.ChartObjects("Chart 1").Activate
    ActiveChart.Axes(xlValue, xlSecondary).MaximumScale = 0.9
    ActiveChart.Axes(xlValue, xlSecondary).MaximumScale = 1
    Selection.MajorTickMark = xlNone
    Selection.TickLabelPosition = xlNone
End Sub

试试这个：

Sub Macro4()
    With ActiveSheet.ChartObjects("Chart 1").Chart.Axes(xlValue, xlSecondary)
        'As I see it should be MinimumScale = 0.9 (not MaximumScale)
        .MinimumScale = 0.9
        .MaximumScale = 1
        .MajorTickMark = xlNone
        .TickLabelPosition = xlNone
    End With
End Sub

顺便说一句，这将是非常有帮助的你阅读文章：