图表的VBA sub返回错误438

Question

我试图使用图表参数创建一个sub：

Sub adjustgraph(chrt As Excel.Chart)
    Dim n As Long, m As Long, i As Long
    Dim str As String

    n = chrt.SeriesCollection.Count
    For i = 1 To n
        Debug.Print chrt.SeriesCollection(i).Formula
    Next i

End Sub

尝试运行adjustgraph(activechart)时，我一直收到错误438＆＃34;对象不支持此属性或方法＆＃34;。我该如何解决？

Answer 1

阅读本文：https://msdn.microsoft.com/en-us/library/office/gg251432.aspx

您的方法调用语法不正确

使用adjustgraph activechart

或Call adjustgraph(activechart)