excel记录宏的运行时错误

Question

我想创建一个有2个横条和一条线（对于参考线）的图表，我想记录一个宏来执行它（因为我需要为许多不同的电子表格）。我在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 

Answer 1

试试这个：

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 

顺便说一句，这将是非常有益的，供您阅读文章：How to avoid using select/active statements 。