Mit dieser Funktion ist man in der Lage eine beliebige Powerpoint Datei zu öffnen. Als Übergabeparameter fordert die Funktion OpenPP einen String, mit dem kompletten Pfad zur PowerPoint Präsentation. Desweiteren wurde der Teil, der zur Bearbeitung der PowerPoint Datei dient, gekennzeichnet und mit der Funktion GetSlideCount, für die Ermittlung von der Folienanzahl des übergebenen PowerPoint Objektes, genutzt. Um diese Funktion auszuführen, müssen folgende Verweise eingefügt werden:
Quellcode ' Die Funktion OpenPP ist zuständig für das "Öffnen" und ' wieder schließen einer Powerpointdatei. Public Function OpenPP(ByVal strPPFile As String) ' Variable für die Folienanzahl Dim lnSlideCount As Long ' Dimensionierung des PowerPoint Objektes Dim AppPowerPoint As New PowerPoint.Application ' Powerpointpräsentation als Objekt Dim OpenPresentation As PowerPoint.Presentation ' PowerPoint Objekt erstellen Set AppPowerPoint = CreateObject("PowerPoint.Application") ' Powerpoint wird minimalisiert geöffnet AppPowerPoint.WindowState = ppWindowMinimized ' Powerpoint wird aktiviert AppPowerPoint.Activate ' Die gewünschte Powerpointpräsentation wird mittels Pfadübergabe geöffnet Set OpenPresentation = AppPowerPoint.Presentations.Open(strPPFile) ' - BEARBEITEN DER POWERPOINTDATEI - ' ---------------------------------- ' Das "Powerpoint Präsentations Objekt" wird an die Funktion ' GetSlideCount übergeben ' Der Rückgabewert ist die Anzal der Folien in dieser ' Powerpoint Präsentation lnSlideCount = GetSlideCount(OpenPresentation) ' Mit Quit wir Powerpoint nun wieder geschlossen AppPowerPoint.Quit ' Zum Schluss werden die Objekte geleert! Set AppPowerPoint = Nothing Set OpenPresentation = Nothing MsgBox lnSlideCount End Function ' Die Funktion GetSlideCount gibt die Folienanzahl der ' übergebenen Powerpoint Applikation zurück. Public Function GetSlideCount(ByVal ActivePP As Object) As Long ' Folienanzahl wird der Funktion GetSlideCount als ' Rückgabewert zugewiesen GetSlideCount = ActivePP.Slides.Count End Function Beispiel Funktionsaufruf: Private Sub Form_Load() ' String für die Pfadangabe Dim strPPFile As String ' Der Pfad inklusive Powerpointdatei (ppt) wird der ' Variable zugewiesen strPPFile = "C:\Test.ppt" ' Der Pfad wird der Funktion OpenPP übergeben OpenPP strPPFile End Sub Dieser Tipp wurde bereits 21.568 mal aufgerufen. Voriger Tipp | Zufälliger Tipp | Nächster Tipp
Anzeige
Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv Vol.6 (einschl. Beispielprojekt!) Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv! - nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten - Symbol-Galerie mit mehr als 3.200 Icons im modernen Look Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m. |
sevGraph (VB/VBA) Grafische Auswertungen Präsentieren Sie Ihre Daten mit wenig Aufwand in grafischer Form. sevGraph unterstützt hierbei Balken-, Linien- und Stapel-Diagramme (Stacked Bars), sowie 2D- und 3D-Tortendiagramme und arbeitet vollständig datenbankunabhängig! Tipp des Monats April 2024 Skyfloy Chart von Microsoft und dazu noch gratis Tutorial für Microsoft Chart Controls für Microsoft .NET Framework 3.5 Access-Tools Vol.1 Über 400 MByte Inhalt Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB |
||||||||||||||||
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein. |