Hi zusammen,

habe folgendendes Problem und bin noch relativ neu in der VBA Programmierung, weswegen ich mich hier an euch wende und auf etwas Hilfe hoffe.

Ich habe eine Excel-Datei aus der mehrere Diagramme in eine Powerpoint als Bild kopiert werden.

Dafür habe ich mir ein Makro gebastelt. Das funktioniert auch soweit.

Nun möchte ich die Bilder positionieren und komme hier nicht weiter. Wie kann ich die kopierten Bilder ansprechen bzw. direkt die Position mitgeben?

Hier mein bisheriger VBA Code zum Kopieren der Diagramme:

Sub excel_to_pp()

    Dim strPPTX As String
    Dim strPfad As String
    Dim pptVorlage As String
    Dim pptApp As Object
    Dim pptPres As Presentation
        'Pfad setzen
        strPfad = "C:\Users\A49966070\Desktop\Reporting VBA\"
        strPPTX = "cockpit_vorlage.pptx"
        
        'PP Öffnen
        Set pptApp = New PowerPoint.Application
        pptApp.Visible = True
        pptVorlage = strPfad & strPPTX
        pptApp.Presentations.Open Filename:=pptVorlage, untitled:=msoTrue
        
        Set pptPres = pptApp.ActivePresentation
        
        'Charts kopieren als Bild!
        'Workload_Eingang
        
        Workbooks("Testdatei.xlsm").Sheets("Workload_Eingang").ChartObjects("Mittelwert").CopyPicture xlScreen, xlPICT
        pptPres.Slides(2).Shapes.PasteSpecial DataType:=ppPasteEnhancedMetafile
        
        
        'Forecast
        
        Workbooks("Testdatei.xlsm").Sheets("Forecast").ChartObjects("F_SBU").CopyPicture xlScreen, xlPicture
        pptPres.Slides(8).Shapes.PasteSpecial DataType:=ppPasteEnhancedMetafile
        
       
        
        
End Sub

Hoffe irgendjemand kann mir einen Typ oder ein Beispiel geben, wie ich die Diagramme positionieren kann.

Danke schonmal :)

Tim