VBA Unter für Charts gibt Fehler 438

Question

Ich versuche, ein Unter mit einem Diagramm Parameter zu machen:

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 

Beim Versuch, adjustgraph(activechart) zu laufen, halte ich den Fehler bekommen 438 „Objekt nicht unterstützt diese Eigenschaft oder Methode ". Wie kann ich es reparieren ?

Answer 1

Lesen Sie dazu: https://msdn.microsoft.com/en-us/library/office/gg251432.aspx

Ihre Methodenaufruf Syntax ist falsch

Verwenden adjustgraph activechart

Oder Call adjustgraph(activechart)