Von |
maria |
Am |
16. Juni 2008 um 15:44:18 |
Frage |
Hallo,
ich versuche verzweifelt Zugriff auf ein Diagramm auf einem Worksheets zu bekommen und es gelingt mir einfach nicht. Mein Code geht folgendermaßen:For intAktWs = 1 To Workbooks(strWbUnicorn).Worksheets.Count For intAktChart = 1 To Workbooks(strWbUnicorn).Worksheets(intAktWs).ChartObjects.Count strChart = Workbooks(strWbUnicorn).Worksheets(intAktWs).ChartObjects(intAktChart).Name If InStr(strChart, "myChart") <> 0 Then
Set wksA = Workbooks(strWbUnicorn).Worksheets(intAktWs) Set chtobjA = wksA.ChartObjects(strChart) lngLetzteReihe = chtobjA.Chart.SeriesCollection.Count ....Und der Zugriff aus der letzten Zeile auf die SeriesCollection ergibt einen "Automatisierungsfehler".
(Die Variablen sind selbstverständlich alle deklariert, das Diagramm gibt es auch und es hat auch 3 SeriesCollections....)
Ich habe schon wirklich viel probiert, aber es fällt mir nichts mehr ein :-((
Für Hilfe bin ich sehr dankbar
Maria |
|