Herbers Excel-Forum - das Archiv
Powerpoint-Präsentation aus Excel erstellen
Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Betrifft: Powerpoint-Präsentation aus Excel erstellen
von: Fraggle
Geschrieben am: 26.09.2003 10:18:22
Hallo an alle hilfswilligen guten Geister,
eigentlich habe ich eine wahrscheinlich nur sehr einfache Frage: Was muss ich tun, um über einen CommandButton in einer Excel-Tabelle eine neue PP-Präsentation auf Basis einer in einem bestimmten Verzeichnis befindlichen *.pot-Vorlage zu erstellen und diese dann unter einem Dateinamen, der sich aus einer bestimmten Zelle eines Excel-Arbeitsblattes und dem aktuellen Datum zusammensetzt, zu speichern?
Danke schonmal für die Mühe und Hilfe,
Fraggle
Betrifft: AW: Powerpoint-Präsentation aus Excel erstellen
von: Fraggle
Geschrieben am: 26.09.2003 11:45:57
Hat sich erledigt, hier die Lösung!
Private Sub Präsentation_Click()
Dim oApplPPoint As Object
Set oApplPPoint = CreateObject("Powerpoint.Application")
With oApplPPoint
.Visible = True
.WindowState = 2
.Activate
.Presentations.Open Filename:="D:\Vorlagen\Präsentation.pot", Untitled:=msoTrue
.ActivePresentation.SaveAs Filename:="D:\Präsentationen Ablage\" & Worksheets("Sheet1").Range("a1") & Format(Date, " yyyy-mm-dd - ") & Format(Time, "hh_mm") & " Uhr"
End With
End Sub