Powerpoint speichen und schließen
31.08.2017 16:05:42
Andrea
ich hab per VBA von einer Excel Datei ein Chart in Powerpoint eingefügt und möchte nun einfach nur die Powerpoint speichen und schließen. Ich bekommen es einfach nicht hin. Hab schon verschieden Sachen probiert. Vielen Dank für Eure Hilfe!
Mein Code bisher lautet:
Sub Vergleichvorjahr()
Dim PptProg As Object
ThisWorkbook.Worksheets("Vergleich Vorjahr").ChartObjects(1).CopyPicture
Set PptProg = CreateObject("Powerpoint.Application")
With PptProg
.Visible = True
.Presentations.Open Filename
.ActiveWindow.View.GotoSlide Index:=4
.ActiveWindow.Selection.SlideRange.Shapes(1).Select
.ActiveWindow.Selection.Unselect
.ActiveWindow.View.Paste
With .ActiveWindow.Selection.ShapeRange
.IncrementLeft 418.018
.IncrementTop 53.521
.LockAspectRatio = msoFalse
.ScaleWidth 0.405, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.592, msoFalse, msoScaleFromTopLeft
End With
End With
End Sub