Über die SlideFab-API ist es möglich, die Automatisierung der Folienherstellung mithilfe von VBA aufzurufen. Dies schafft neue Möglichkeiten, z.B. Wenn SlideFab über Ihr VBA-basiertes Excel-Add-In ausgeführt wird. SlideFab wird in einem unbeaufsichtigten Modus ausgeführt, ohne dass eine Benutzerinteraktion erforderlich ist, sodass eine nahtlose Integration möglich ist.
Hierbei ist es wichtig, dass nur der Folien-Erstellungs-Mechanismus in der API verfügbar ist. Das Einrichten der Automatisierung mit den Iterationsschleifen, Verknüpfungen zwischen Excel und Powerpoint usw. muss wie immer im Voraus über die SlideFab-2-Bedienung eingerichtet werden. Außerdem muss der Lizenzschlüssel eingerichtet werden, wenn SlideFab als Flex oder Saver anstelle von Lite ausgeführt wird.
Zum Aufrufen von SlideFab sind nur wenige Codezeilen erforderlich. Die folgende Methode funktioniert beispielsweise in Excel. Es erstellt ein Powerpoint-Anwendungsobjekt und ruft das SlideFab-Add-In daraus ab. Die Folienautomatisierung wird über die API mit der Methode MakeSlidesFromWb
aufgerufen.
Sub InvokeSlideFabMakeSlides()
Dim addIn As COMAddIn
Dim automationObject As Object
Dim pptApp As Object
Set pptApp = CreateObject("PowerPoint.Application")
Set addIn = pptApp.COMAddIns("SlideFab2")
Set automationObject = addIn.Object
automationObject.MakeSlidesFromWb pptInputPath:="SomeTemplate.pptx", _
wb:=ThisWorkbook, _
pptOutputPath:="SomeOutput.pptx"
pptApp.Quit
End Sub
Die Methode MakeSlidesFromWb
erfordert drei Parameter:
pptInputPath as String
: Der relative oder absolute Pfad zur Powerpoint-Vorlagenpräsentationwb as Excel.Workbook
: Ein Verweis auf eine vorhandene Excel-ArbeitsmappepptOutputPath as String
: Der relative oder absolute Pfad, in den die erstellten Folien geschrieben werden sollen