Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Anzeige
Inhaltsverzeichnis

Präsentation in UserForm einbinden

Forumthread: Präsentation in UserForm einbinden

Präsentation in UserForm einbinden
15.10.2018 15:49:02
Matto
Hallo Experten,
ich möchte für ein Excel-Dokument ein Tutorial in Form einer PowerPoint Präsentation erstellen.
Ich habe es mir so vorgestellt, dass wenn jemand auf den HilfeButton klickt, sich eine UserForm öffnet, in die die Präsentation eingebettet ist.
Ist-Stand:
User-Form mit Webbrowser:
Private Sub UserForm_Initialize()
Me.WebBrowser1.Navigate ("F:\Excelbeispiel.ppsx")
End Sub

Sobald ich die Userform öffne, kommt die Abfrage "Möchten Sie diese Datei öffnen oder speichern?" Wenn ich mit Ja bestätige, öffnet sich PowerPoint.
Soll:
Die PowerPoint wird ohne Abfrage in der UserForm geöffnet.
Gruß
Mat
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Präsentation in UserForm einbinden
15.10.2018 17:04:13
Ulf
hallo mat,
das hab ich mir mal irgendwo gezogen:
Dim ppApp As Object
Dim ppP As Object
Dim sFile As String
sFile = "LW:\xyz\Doku.pptx"
If Dir(sFile) = "" Then
Beep
MsgBox "Die Datei " & sFile & " existiert nicht!"
Exit Sub
End If
Set ppApp = CreateObject("PowerPoint.Application")
ppApp.Visible = msoTrue
Set ppP = ppApp.Presentations.Open(sFile)
ppP.SlideShowSettings.Run
MsgBox ""
ppApp.Quit
Set ppP = Nothing
Set ppApp = Nothing
Anzeige
AW: Präsentation in UserForm einbinden
15.10.2018 19:06:42
Matto
Hallo Ulf,
Danke Dir. Kann es leider erst heute Abend oder morgen früh ausprobieren.
Ich melde mich dann nochmal.
Gruß
Mat
AW: Präsentation in UserForm einbinden
16.10.2018 11:59:09
Matto
Guten Morgen,
das bringt mich ein Stück weiter, ist aber noch nicht, was ich wollte.
Ist es möglich, die Powerpoint innerhalb einer UserForm anzuzeigen?
Bzw. als Alternative, ist es möglich, dass sich die Präsentation öffnet und diese mit Escape oder einem Tastendruck schließt, ohne das PowerPoint angezeigt wird.
Gruß
Mat
Anzeige
AW: Präsentation in UserForm einbinden
16.10.2018 12:31:30
Matto
Hallo,
ich habe gerade noch etwas gefunden, an dem ich euch teilhaben lassen möchte.
Wenn die Präsentation als "ppsx" gespeichert wurde,
funktioniert folgender Code derart, dass die Präsentation direkt angezeigt wird und mit "Esc" oder nach der letzten Folie geschlossen wird.
Sub Praesi_oeffnen()
Dim WshShell As Object
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run "F:\Beispieldatei.ppsx"
Set WshShell = Nothing
End Sub
Gibt es hier die Möglichkeit die Fenstergröße anzupassen?
Viele Grüße
Mat
Anzeige
AW: Präsentation in UserForm einbinden
15.10.2018 19:06:44
Matto
Hallo Ulf,
Danke Dir. Kann es leider erst heute Abend oder morgen früh ausprobieren.
Ich melde mich dann nochmal.
Gruß
Mat

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige