Hi zusammen,

Ich habe folgendes Problem: Im Rahmen einer Quartalsanalyse benötige ich eine Powerpoint Präsentation mit diversen Diagramme, die ich per Pivot erstellt habe. Um diese Diagramme nicht jedes mal aufs neue per Copy-Paste in die Powerpoint zu übertragen, habe ich einen VBA Code bereits erstellt. Das Anordnen an die vordefinierten Shapes in Powerpoint funktioniert, nur die skalierung der Diagramme funktioniert nicht. Um zu verhindern, dass ich jetzt nachträglich in Excel alle Diagramme in gleicher Breite und Höhe anbringe, hoffe ich hier auf weitere Erkenntnisse. Folgenden Code habe ich verwendet:

          Sheets("Diagramme").ChartObjects("S7_T1").Copy
                
                Set Diagramm = pptPres.Slides(7).Shapes.PasteSpecial(0)
                    With Diagramm
                        'Ansichtsverhältnis entsperren'
                        .LockAspectRatio = msoTrue
                        'Oberer Rand'
                        .Top = pptPres.Slides(7).Shapes("PPT_S7_T1").Top
                        'Linker Rand'
                        .Left = pptPres.Slides(7).Shapes("PPT_S7_T1").Left
                        'Eingefügtes Diagramm skalieren'
                        .Width = pptPres.Slides(7).Shapes("PPT_S7_T1").Width
                        .Height = pptPres.Slides(7).Shapes("PPT_S7_T1").Height
                    End With
                Set Diagramm = Nothing

Über eine Lösung zu meinem Problem wäre ich sehr dankbar!

LG

Andre