|
Hallo zusammen,
ich habe folgendes Problem (das erst seit kurzem auftriff, davor ging immer bei allen Makros alles problemlos):
Seit kurzem kommt immer folgender Fehler, wenn innerhalb eine PPTX Berichtes im Datenbereich eines DIagrammes Dateneingefügt wurden und das Datenblatt dann wieder geschlossen werden soll:"Laufzeitfehler '1004': Die Close-Methode des Workbook-Objektes konnte nicht ausgeführt werden."
Hier ein Syntaxbeispiel:
foliennummer = 4
diagramm_name = "Diagramm"
With pptApp.ActivePresentation.Slides(foliennummer).Shapes(diagramm_name).Chart
With .ChartData
.Activate
With .Workbook.Worksheets(1)
For spalte_werte_diagramm = 2 To 7
anfang_zeile_ppt = 2
For zeile = 84 To 92
If Round((file_rawdata.Sheets(1).Cells(zeile, spalte_werte_diagramm).Value), 0) = 0 Then
.Cells(anfang_zeile_ppt, spalte_werte_diagramm) = ""
Else
.Cells(anfang_zeile_ppt, spalte_werte_diagramm) = Round((file_rawdata.Sheets(1).Cells(zeile, spalte_werte_diagramm).Value), 0)
End If
anfang_zeile_ppt = anfang_zeile_ppt + 1
Next zeile
Next spalte_werte_diagramm
End With
End With
.ChartData.Workbook.Close --> hier hält das Makro immer an
End With
Hat jemand eine Rat? Ich wäre euch sehr dankbar!!!
|