---

Hallo zusammen,

ich möchte über ein Icon in einer Toolbar eine pps/ppt Datei öffnen. Das mit dem Icon und so hab ich schon, aber mir fehlt noch der VBA Code um die pps Datei öffnen zu können.
Ich habe es mal so probiert: Shell ("C:\Program Files (x86)\Adobe\Reader 9.0\Reader\AcroRd32.exe C:\meineDaten\Test.pps")
Damit öffnet er auch schon den Adobe Reader aber das pps geht nicht auf, ich erhalte eine Fehlermeldung.

Kann mir jemand helfen? Danke schon einmal für Eure Hilfe!

------------------
mfg Gaucho

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,
das kann auch nicht funktionieren... Du versuchst mit dem Acrobat Reader eine Powerpointpräsentation zu öffnen.

------------------
MFG
Rick Schulz
      Nettiquette (CAD.de)  -  Was ist die Systeminfo?  -  Wie man Fragen richtig stellt.  -  Unities

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Versuch es mal mit...

Code:

---

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
    (ByVal hwnd As Long, ByVal lpOperation As String, _
    ByVal lpFile As String, ByVal lpParameters As String, _
    ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub CATMain()
    Dim ProcessID as Long
    run ShellExecute(ProcessID, "open", "C:\meineDaten\Test.pps", "", "", vbNormalFocus)
End Sub

---

Ergänzung: Du könntest natürlich auch mit...

Code:

---

Shell ("C:\Program Files (x86)\"Officeordner"\POWERPNT.EXE C:\meineDaten\Test.pps")

---

...das Dokument öffnen, allerdings ist es dann nicht als Präsentation, sondern im Bearbeitungsmodus geöffnet.

------------------
MFG
Rick Schulz
          Nettiquette (CAD.de)  -  Was ist die Systeminfo?  -  Wie man Fragen richtig stellt.  -  Unities

[Diese Nachricht wurde von RSchulz am 20. Okt. 2010 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Oje,

das ist peinlich!!
Sorry, da hab ich mich ja komplett verzettelt.. Natürlich kann das nicht klappen!

Aber vielen Dank für Eure antworten, das nächste mal werde ich erst mein Hirn einschalten, und dann posten!!

EDIT: Es hat geklappt, vielen Dank! 10U dafür!

Beste Grüße

------------------
mfg Gaucho

[Diese Nachricht wurde von Gaucho am 20. Okt. 2010 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

Ein CATScript:

Sub CATMain()

Set PPT = CreateObject("PowerPoint.Application")
PPT.Visible=True
Set Pres = PPT.Presentations.Open("C:\Temp\Presentation.pps")

End Sub

Andere Beispiele hier

Tchus
Fernando

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP