Von Excel nach PowerPoint
Ausgangslage - Was tut dieser Code-Schnipsel?
Ein kleiner Beispielquelltext für die Erstellung einer neuen Microsoft PowerPoint Präsentation aus Microsoft Excel heraus.
Der Quelltext
Option Explicit
' Original-Quelltext unter: https://www.online-vba.de/von-excel-nach-powerpoint
' Express-Hilfe für VBA unter https://www.online-vba.de/vba-expresshilfe
' Es gelten die Nutzungsbedingungen von Online-VBA.de
'Läuft nur unter Microsoft PowerPoint Version <= 2010
Public Sub OVBAde_CreatePPTFileFromExcel()
Dim oPPTApp As Object 'Die PowerPoint Anwendung
Dim oPPTFile As Object 'Die PowerPoint Datei
Dim oPPTSlide As Object 'Eine PowerPoint Folie
'PowerPoint öffnen/starten
Set oPPTApp = CreateObject("Powerpoint.Application")
oPPTApp.Visible = True
'Neue Präsentation
Set oPPTFile = oPPTApp.Presentations.Add
'Neue Folie einfügen
Set oPPTSlide = oPPTFile.Slides.Add(1, ppLayoutBlank)
'Wert aus A1 in die Überschrift eintragen
oPPTSlide.Shapes(1).TextFrame.TextRange.Text = Cells(1, 1).Value
'Hier können weitere übertragen gebaut werden ...
'Der Phantasie sind keine Grenzen gesetzt ;)
Set oPPTSlide = Nothing
Set oPPTFile = Nothing
Set oPPTApp = Nothing
End Sub
Anmerkungen und Hinweise
Dieser Codeschnipsel wurde geschrieben von Marc Wershoven im Jahr 2014.
Die Nutzung erfolgt auf eigene Gefahr.
Bitte denken Sie immer zuerst an eine ausreichende Datensicherung.
Wir können keinen kostenlosen Support anbieten.
Es gelten unsere Nutzungsbedingungen.
