Anzeige

VBA
Programmierer
gesucht?
 
Anzeige
VBA Programmierer gesucht?
 

VBA Codeschnipselsammlung

Aus Microsoft® Excel® heraus eine Microsoft® PowerPoint® Präsentation erstellen

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

Option Explicit
' ************************************************************************************************
' Autor/en: http://www.online-vba.de - Marc Wershoven
' Verwendung der Quelltexte auf eigene Gefahr!
' Es gelten die Nutzungsbedingungen von www.online-vba.de!
' Original-Quelltext: www.online-vba.de/vba_xls2ppt.php
' ************************************************************************************************


'Läuft nur unter Microsoft PowerPoint Version <= 2010
Sub MWCreatePPTFileFromExcel()
   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


Autor: Marc Wershoven (2014)

Anzeige

VBA Programmierer gesucht?
http://www.WershovenOnline.de

Anzeige

Der Quick E-Mail Support von WershovenOnline®

Schnelle Hilfe bei Fragen rund um Microsoft® Office und VBA Makros

Der Quick E-Mail Support von WershovenOnline® Sie haben beispielsweise eine Frage zu einer Ihrer eigenen Makroprogrammierungen in VBA? Oder Sie suchen Unterstützung und Informationen über eine bestimmte Microsoft® Excel® Formel? Bei nahezu allen Fragen und Problemen rund um Microsoft® Office und VBA Makros steht Ihnen unser individueller Quick E-Mail Support zur Verfügung. Einfach, schnell und unkompliziert Ihre Frage in einer E-Mail formulieren, mit oder ohne Screenshots oder einer Beispieldatei absenden und kurze Zeit später haben Sie eine vollständige Lösung inkl. ausführlicher Erklärung vom Profi in Ihrem Postfach! Zusätzlich besteht die Option, dass wir uns mittels Fernwartung (selbstverständlich nach Ihrem Einvertändnis) direkt "live" mit Ihnen zusammen an Ihrem Bildschirm gemeinsam Fragen und Problemstellungen anschauen und lösen können!

Weitere Informationen zu diesem kostenpflichtigen Angebot finden Sie auf der Anbieterseite von WershovenOnline® auf www.wershovenonline.de.

Zum Anbieter des Quick-E-Mail-Support...

Zum Seitenanfang