Werte aus Powerpoint charts auslesen Lösung
Christian
ich hatte in diesem Thread https://www.herber.de/forum/archiv/1148to1152/t1149749.htm#1149749
nach einer Möglichkeit gefragt die Daten die hinter den Powerpointcharts stehen aus Excel mit VBA auszulesen.
Wir sind da nicht weitergekommen jetzt habe ich aber die Lösung. Vielleicht kann das ja mal jemand brauchen.
Sub PPDatenLesen()
Dim oPPT As Object
Dim oGraph As Object
Dim oDataSheet As Object
Dim oSlide As Object
Dim oShape As Object
Dim strPPDatei As String
strPPDatei = "C:\Präsentation1.ppt"
Set oPPT = CreateObject(class:="PowerPoint.Application")
oPPT.presentations.Open Filename:=strPPDatei, WithWindow:=msoFalse
For Each oSlide In oPPT.presentations(1).Slides
For Each oShape In oSlide.Shapes
If oShape.Type = msoEmbeddedOLEObject Then
If Left(oShape.OLEFormat.progID, 13) = "MSGraph.Chart" Then
Set oGraph = oShape.OLEFormat.Object
Set oDataSheet = oGraph.Application.DataSheet
oDataSheet.Cells.Copy
ActiveSheet.Paste
End If
End If
Next oShape
Next oSlide
End Sub
doppelklicke. Es geht hier nur um die Syntax für den Zugriff auf PP, natürlich macht dieser Code keinen Sinn
weil ich die Daten bei jedem Diagramm wieder überschreibe.
Aber es funktioniert und wie ich das dann im Detail mache werden ich morgen sehen.
Grüße
Chris
Anzeige