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

Forumthread: Präsentation in UserForm einbinden

Präsentation in UserForm einbinden
15.10.2018 13: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 15: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 17: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 09: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 10: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 17: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
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige