Excel Objekte in PowerPoint aktualisieren
08.10.2019 07:33:51
Christoph
ich möchte gern PowerPoint beibringen, wie man aus Excel automatisch Objekte und Diagramme updateted. Soweit so gut, das habe ich mit folgendem Code realisiert:
Sub close_excel()
'Exel Team_Dialog_Präparation öffnen
Dim ExcelApp As Object
Dim ExcelWb As Object
Set ExcelApp = CreateObject("Excel.Application")
ExcelApp.Visible = False
'alle Diagramme aktualisieren
Dim pptChart As Chart
Dim pptChartData As ChartData
Dim pptWorkbook As Object
Dim sld As Slide
Dim shp As Shape
For Each sld In ActivePresentation.Slides
For Each shp In sld.Shapes
If shp.HasChart Then
Set pptChart = shp.Chart
Set pptChartData = pptChart.ChartData
pptChartData.Activate
shp.Chart.Refresh
On Error Resume Next
End If
Next
Next
Set pptWorkbook = Nothing
Set pptChartData = Nothing
Set pptChart = Nothing
'excel schließen und speichern
For Each j In ExcelApp.Workbooks
j.Save
Next j
ExcelApp.Quit
ExcelApp.Visible = True
Set ExcelApp = Nothing
End Sub
Ich vermute, dass es an der Excel liegt, die im SharePoint abgelegt ist (ist leider eine Anforderung seitens meines Unternehmens...). Unter PowerPoint habe ich bereits sämtliche lokale Verbindungen mit dem Link zur Excel Datei aktualisiert. Komischerweise werden auch die Diagramme problemlos geupdated, nur die eingebetteten Tabellen/Excel Objekte nicht. Hier sagt mir Excel, die Verknüpfung zur Datei sei nicht möglich.
Erst einmal Dankeschön für das Durchlesen! Ich hoffe sehr, dass ihr mir dabei irgendwie weiterhelfen könnt, mit meinem Latein bin ich am Ende.
Anzeige