Hallo zusammen,
möchte aus einer Excel 20 verschiedene Diagramme (auf unterschiedlichen Tabellenblättern) in eine Powerpoint bestehend aus mehreren Folien bringen.
Mit diesem Code hier klappt das auch wunderbar:
Dim ppApp As Object
Dim ppFile As Object
Dim ppPres As String
'Dateiname
Set ppApp = CreateObject("Powerpoint.Application")
With ppApp
.Visible = True
.Presentations.Open Filename:="Dateipfad"
'Powerpointdatei wählen und Folie 2 auswählen/anzeigen
.ActivePresentation.Slides(2).Select
'Aus Sheet2 Chart 2 wählen
Sheets(2).ChartObjects(2).Copy
'Größe und Positionierung des Diagramms in der Powerpointdatei bestimmen
With .ActiveWindow
.View.Paste
.Selection.ShapeRange.Left = 490
.Selection.ShapeRange.Top = 105
.Selection.ShapeRange.Width = 450
.Selection.ShapeRange.Height = 190
End With
End With
Wenn ich diesen Code jetzt aber stumpf mehrfach untereinander kopiere stürzt mir Powerpoint irgendwann ab. Schätze der Code überfordert PP, mglw. braucht's so was wie "do while"?
Danke schon mal und VG
Stephan