PowerPoint öffnen ohne Link??

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: PowerPoint öffnen ohne Link??
von: tino
Geschrieben am: 27.03.2005 08:28:42
Hallo,
möchte PowerPoint Dokument ohne Link
öffnen aber wie? So wie unten geht’s schon
mal nicht!???
CreateObject("PowerPoint.application").documents.Open _
("c:\versuch\test.ppt").Application.Visible = True

Bild

Betrifft: AW: PowerPoint öffnen ohne Link??
von: andre
Geschrieben am: 27.03.2005 08:38:54
Hallo Tino,
hier mal ein Beispiel mit word.
Dim wordObj As Word.Application
' Document öffnen
Set wordObj = CreateObject("Word.Application")
wordObj.Visible = False
On Error GoTo nixda
wordObj.Documents.Open DeinDateiName
With wordObj
Bild

Betrifft: geht nicht!
von: tino
Geschrieben am: 27.03.2005 08:51:05
geht nicht habe Word durch PowerPoint ersetzt.
Meine Version war auch von Word.
"Typ unverträglich"!
Vieleicht ist der Name Powerpoint falsch?!
Bild

Betrifft: AW: geht nicht!
von: andre
Geschrieben am: 27.03.2005 09:13:35
Hallo Tino,
dann nimm mal das. Problem ist nur, dass powerpoint msoTrue statt True will.

Sub test3()
Dim powerpointObj As PowerPoint.Application
' Document öffnen
Set powerpointObj = CreateObject("powerpoint.Application")
powerpointObj.Visible = msoTrue
On Error GoTo nixda
powerpointObj.Presentations.Open "C:\test\test1.ppt"
MsgBox "ok"
nixda:
End Sub

Bild

Betrifft: AW: geht nicht!
von: tino
Geschrieben am: 27.03.2005 09:30:57
Bekomme bei,
Dim powerpointObj As PowerPoint.Application
immer Fehlermeldung
siehe Bild
Userbild
Bild

Betrifft: AW: geht nicht!
von: andre
Geschrieben am: 27.03.2005 09:39:52
Hallo Tino,
da musst Du unter Extras-Verweise die Microsoft Powerpoint Library aktivieren.
Grüsse, Andre
Bild

Betrifft: AW: geht nicht!
von: tino
Geschrieben am: 27.03.2005 09:55:19
Danke jetzt Funktionierts!
Frohe Ostern
Bild

Betrifft: ... freut mich, auch Dir schöne Ostern oT
von: andre
Geschrieben am: 27.03.2005 10:07:10


 Bild

Beiträge aus den Excel-Beispielen zum Thema "PowerPoint öffnen ohne Link??"