Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 12:58:59
Daten einfügen aus anderem Sheet
19.04.2024 12:23:24
Wenn-Formel anpassen
19.04.2024 12:09:19
Unique (Application.WorksheetFunction.Unique)
19.04.2024 11:51:37
Nächsten identischen Treffer suchen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
312to316
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
312to316
312to316
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Powerpoint-Präsentation aus Excel erstellen

Powerpoint-Präsentation aus Excel erstellen
26.09.2003 10:18:22
Fraggle
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Powerpoint-Präsentation aus Excel erstellen
26.09.2003 11:45:57
Fraggle
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

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige