Guten Abend.

Ich benötige Hilfe bei der Fertigstellung eines VBA Codes für Excel.

Folgender Sachstand:

Ich habe eine Exceldatei mit 4 Diagrammen auf 4 verschiedenen Charts.

Ich möchte diese Diagramme mittels VBA in eine Powerpoint Präsi exportieren.

Mit meinem vorhandenem VBA Code kann ich das erste Diagramm exportieren und 3 weitere Folien erstellen.

Das Problem ist nun der export der anderen 3 Diagramme. Die werden nicht mit exportiert.

Als Anhang habe ich den VBA Code meines Vorhandenen Makros:

__________________________________________________________________________________________________________

Sub Excel_chart_an_PPT()
Dim ppApp As Object
Dim ppFile As Object
Dim ppPres As String

Set ppApp = CreateObject("Powerpoint.Application")

Sheets(1).ChartObjects.CopyPicture
With ppApp
.Visible = True
.Presentations.Open Filename:="E:\Master.ppt"
.ActivePresentation.Slides.Add 1, 12
With .ActivePresentation.Slides(i + 1)
.Select
.Shapes.Paste
'Definition des Aussehens
With ppApp.ActiveWindow.Selection.SlideRange.Shapes(1)
    .Top = 100
    .Left = 50
    .Width = 720
    .Height = 400
        End With
    End With
End With

'er geht aber noch weiter, da ich möchte, dass alle Grafiken exportiert werden:

'Schleife für den Rest
For i = 2 To Charts.Count
Sheets(i).ChartObjects.CopyPicture
With ppApp
.Visible = True
.ActivePresentation.Slides.Add 2, 12
With .ActivePresentation.Slides '(i + 1)
'.Select
'.Shapes.Paste
'Definition des Aussehens
With ppApp.ActiveWindow.Selection.SlideRange.Shapes(1)
    .Top = 100
    .Left = 50
    .Width = 720
    .Height = 400
        End With
    End With
End With
    Next i
End Sub

___________________________________________________________________________________________________-

Bin für jeden Tipp dankbar.

Schönen Abend

Hendrik