PPT Präsentation aktivieren
TobiasS
Ich bekomme beim Ausführen eines Makros immer den Fehler:
"Application(unknown member): Invalid request. There is no active presentation."
Der Debugger verweist auf: "Set Pres = PPApp.ActivePresentation" in unten stehendem Code. Ich habe es schon mit ppapp.visible = True versucht, aber hat auch nichts gebracht.
hat vielleicht jemand eine idee?
VG
Tobi
Sub test()
Dim ...
Application.Sheets("Daten").Unprotect
On Error Resume Next
Set PPApp = GetObject(, "PowerPoint.Application")
If Err.Number 0 Then
Set PPApp = CreateObject("PowerPoint.Application")
PPApp.Visible = msoTrue
End If
Err.Clear
On Error GoTo 0
'Prefix hier anpassen
ShPrefix = "OLE "
Eprefix = "Daten "
Version = 2
Set Pres = PPApp.ActivePresentation
End Sub
Anzeige