Tipp vom 23.06.2008
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:
- Microsoft Office 11.0 Object Libary
- Microsoft PowerPoint 11.0 Object Libary
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
|
Sie können hier bei vbarchiv.net für mich voten!
Tags: Microsoft Visual Studio, MS Powerpoint, Powerpoint, VB 6.0, Visual Basic
Keine Kommentare »