Speichern von Diagrammtiteln in einem Array

Question

Ich versuche, Diagrammtitel in einem Blatt in einem Array zu speichern. Ich habe den folgenden Code, aber es scheint nicht zu funktionieren:

ReDim currentArray(1 To .ChartObjects.Count/3) 
For i = 1 To .ChartObjects.Count Step 3 
    .ChartObjects(i).chart.HasTitle = True 
    title_name = .ChartObjects(i).chart.ChartTitle.Text 
    If i = 1 Then 
     Set currentArray(i) = title_name 
    Else 
     Set currentArray((i + 2)/3) = title_name 
    End If 
Next 

Es gibt mir Laufzeitfehler ‚424‘ Nachricht das Objekt zu sagen auf der Leitung erforderlich ist 6, wo ich versuche, die title_name des Diagramms zu speichern in AktuellesArray. Welche andere Möglichkeit gibt es, nur die Chartnamen und nicht die Charts selbst zu speichern?

Answer 1

szB What does the keyword Set actually do in VBA?

Das Objekt erforderlich (424) Fehler bedeuten, dass die rechte Seite der Zuweisungsanweisung kein Objekt zurück, wenn ein Objekt erwartet wird/erforderlich von der linken Seite der Zuweisung Erklärung.

Grundsätzlich verwenden Sie nur das Schlüsselwort Set beim Arbeiten mit Objekten. Entfernen Sie jedes Mal Set und es sollte gut funktionieren.