Hallo Tina,
in einer Anfrage zum Abspeichern von Grafiken (siehe
/t/tabellen-per-makro-als-grafiken-speichern/4816304/2
hattest Du mir einen Code gegeben, in dem Du Powerpoint
öffnest und eine leere Folie aufmachst.
- In Deinem Code erhalte ich einen Fehler
Sub ZuPP()
Dim appPP As Object, Slide As Object
Selection.CopyPicture
Set appPP = CreateObject(„PowerPoint.Application“)
With appPP
.Visible = True
.Presentations.Add
.ActivePresentation.Slides.Add 1, ppLayoutBlank
Set Slide = .ActivePresentation.Slides(1)
Slide.Shapes.Paste
End With
End SubBei „.ActivePresentation.Slides.Add 1, ppLayoutBlank“ erhalte
ich die Fehlermeldung „Invalid enumeration value“
Extras–Verweise, Verweis auf Microsoft Powerpoint… setzen.
- Kann ich anstelle einer leeren Folie auch eine bereits
bestehende Folie öffnen, wenn ja wie?
Ungetestet, ersetze mal
.Presentations.Add
durch
.Presentations.Open FileName:=„Pfad\PWRPNT10.POT“, ReadOnly:=msoFalse
Gruß
Reinhard