Startseite Inhaltsverzeichnis Nutzungsbedingungen Datenschutz Impressum Weitere Informationen

CODE-SCHNIPSEL

Aus einer Tabelle heraus eine Präsentation erstellen

VBA und Makros • Codeschnipsel • Arbeitsblatt • Präsentation • Erstellung • Tabelle • Automatisierung

Ausgangslage ... Was tut der Codeschnipsel?

Ein kleiner Beispielquelltext für die Erstellung einer neuen Microsoft® PowerPoint® Präsentation aus Microsoft® Excel® heraus.

VBAVBA Codeschnipsel
XLSQuelltext zur Verwendung mit Microsoft® Excel®
PPTQuelltext zur Verwendung mit Microsoft® PowerPoint®

Der Quelltext ...

Option Explicit
' ****************************************************************
' Autor/en und Original-Quelltext unter:
' https://www.online-vba.de/vba_xls2ppt.php
' Verwendung der Quelltexte auf eigene Gefahr!
' Es gelten die Nutzungsbedingungen von https://www.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.
Es gelten die Nutzungsbedingungen von Online-VBA.de.
TOTOP
ANZEIGE