Hallo!

Ich bin leider völliger VBA Anfänger, muss aber das Problem lösen Diagramme als Bilder in Powerpoint einzufügen.

Einen "Grundcode", der auch funktioniert, gibt es schon:

Sub ppexportopen()

Dim app As Object

Dim Slide As Object

 
Set app = CreateObject("PowerPoint.Application")

Sheets("Motivation_Ger").CopyPicture

app.Visible = True

app.Presentations.Open "G:\Test.pptx"

Set Slide = app.ActivePresentation.Slides(3)

Slide.Shapes.Paste
Set shp = Slide.Shapes.Paste
shp.Top = 10
shp.Left = 50

Jetzt möchte ich das Bilder aber deutlich kleiner haben. Könnt Ihr mir verraten, wie sowas geht?

Liebe Grüße

Benedikt