Das ist wirklich ziemlich einfach, zumal Sie sagen, dass Sie eine Folie ändern möchten, die gerade nicht sichtbar ist (was aufgrund von Fehlern in einigen PPT-Versionen schwierig werden kann).
Fügen Sie dies einem VBA-Modul in Ihrer Präsentation hinzu. Sie müssen die Präsentation als PPTM oder PPSM statt als PPTX / PPTX speichern. Befolgen Sie die Anweisungen, die als Kommentare beigefügt sind:
Option explizit
'Wir ändern Folie 4 ... ändern nach Bedarf' Vergewissern Sie sich, dass sich auf der Folie weder leere Inhalte noch Platzhalter für Bilder befinden. Const lSlideNum As Long = 4
Sub AddAnImage() ' add a shape to any slide you like ' assign the shape an Action Setting of Run Macro: AddAnImage
Dim oSl As Slide Dim oSh As Shape Set oSl = ActivePresentation.Slides(lSlideNum) ' bring in the image; setting width/height to -1 ensures that you ' don't distort it Set oSh = oSl.Shapes.AddPicture("c:\temp\photo.jpg", msoFalse, msoTrue, 0, 0, -1, -1) With oSh .LockAspectRatio = msoTrue ' to make sure it stays undistorted ' change its position/size as you wish ' for example, let's make it the full width of the slide: .Width = ActivePresentation.PageSetup.SlideWidth End With
End Sub
Entschuldigung für die schlechte Bearbeitung ...