Hallo zusammen,
von jetzt auf gleich funktioniert ein Teil meines Makros nicht mehr, was ich so oder so ähnlich schon unzählige Male für die Erstellung von PowerPoint-Reports verwendet habe.
Die Fehlermeldung lautet: "Laufzeitfehler '1004': Die Close-Methode des Workbook-Objektes konnte nicht ausgeführt werden." und tritt immer auf, wenn ich innerhalb eines PowerPoint-Berichts im Daten-Bereich eines Diagramms Daten einfügen und das Diagramm-Datenblatt dann anschließend schließen möchte.
Ein Beispiel:
foliennummer = 2
diagramm_name = "Diagramm"
anfang_zeile_ppt = 2
spalte_werte_diagramm = 2
With pptApp.ActivePresentation.Slides(foliennummer).Shapes(diagramm_name).Chart
With .ChartData
.Activate
With .Workbook.Worksheets(1)
anfang_zeile_ppt_tabelle = 2
For zeile = 4 To 17
.Cells(zeile - 2, 2) = file_rawdata.Sheets(1).Cells(zeile, spalte_werte_diagramm).Value
Next zeile
For zeile = 4 To 17
.Cells(zeile - 2, 3) = file_rawdata.Sheets(1).Cells(zeile, spalte_werte_diagramm + 1).Value
Next zeile
End With
End With
ChartData.Workbook.Close. -- hier stoppt das Makro
End With
Hat jemand eine Idee, woher dieser Fehler auf einmal kommen könnte? Habe schon verschiedenes ausprobiert, aber finde keine Lösung...
Schon vorab vielen Dank für euer Feedback!
|