Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1276to1280
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

PPT Präsentation aktivieren

PPT Präsentation aktivieren
TobiasS
Hallo!
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: PPT Präsentation aktivieren
14.09.2012 10:47:38
Luschi
Hallo Tobias,
versuchg es mal so:

Sub test()
Dim ppApp As Object, ppPres As Object
Application.Sheets("Daten").Unprotect
On Error Resume Next
Set ppApp = GetObject(, "PowerPoint.Application")
If Err.Number  0 Then
Set ppApp = CreateObject("PowerPoint.Application")
If ppApp Is Nothing Then
MsgBox "Auf diesem PC ist keine Powerpoint installiert!", 16, " Achtung - schwerer  _
Ausnahmefehler..."
Exit Sub
End If
'da PP erst neu geöffnet wurde gibt es auch keine aktive Präsentation
Set ppPres = ppApp.Presentations.Open("x:\meinPfad\meine Pras1.ppt", True, False, True)
Else
Set ppPres = ppApp.ActivePresentation
If ppPres Is Nothing Then
'PP war zwar schon gestartet, aber keine ppt-Datei geöffnet!
Set ppPres = ppApp.Presentations.Open("x:\meinPfad\meine Pras1.ppt", True, False,  _
True)
End If
End If
Err.Clear
On Error GoTo 0
ppApp.Visible = msoTrue
'usw. usf.
End Sub
Gruß von Luschi
aus klein-Paris

Anzeige
AW: PPT Präsentation aktivieren
14.09.2012 14:00:17
TobiasS
Hey danke Luschi!
Funzt super!
VG
Tobi

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige