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 。