ich habe eine "Blanko" PPT, die ich per Knopfdruck um Diagramme aus Excel ergänzen möchte.
Das zugehörige Macro läuft unter Excel, das ganze also "Push"mäßig.
Ich schaffe es auch, ein Diagramm aus Excel als Grafik zB in die dritte Slide einer ppt zu kopieren:
Sub pptexport()
Dim App As Object
Dim Slide As Object
Set App = CreateObject("PowerPoint.Application")
Sheets("Sheet1").ChartObjects(1).Chart.CopyPicture _
Appearance:=xlScreen, Size:=xlScreen, Format:=xlPicture
App.Visible = True
App.Presentations.Open "C:\Blanko.ppt"
Set Slide = App.ActivePresentation.Slides(3)
Slide.Shapes.Paste
End Sub
Problem: Sie landet links oben auf dem Slide! Gibt es eine Möglichkeit im EXCEL VBA bereits zu bestimmen, wie die Grafik in PPT positioniert wird?
Bräuchte sie zentriert.
Evtl. indem man einen in ppt bereits vorhandenen Platzhalter ersetzt...?!