PowerPoint spezifische Informationen: Unterschied zwischen den Versionen

Aus VBA-wiki
Zur Navigation springen Zur Suche springen
Keine Bearbeitungszusammenfassung
 
(Eine dazwischenliegende Version desselben Benutzers wird nicht angezeigt)
Zeile 1: Zeile 1:
[[Category:vba-wiki]]
== VBA in PowerPoint ==
== VBA in PowerPoint ==


Zeile 32: Zeile 33:
     <span style="Color:green">' PowerPoint kennt den Zustand, in dem NICHTS ausgewählt ist</span>
     <span style="Color:green">' PowerPoint kennt den Zustand, in dem NICHTS ausgewählt ist</span>
     <span style="Color:blue"> If </span>ActiveWindow<span style="Color:gray">.</span>Selection<span style="Color:gray">.</span>Type <span style="Color:gray">=</span> ppSelectionNone<span style="Color:blue"> Then Exit Sub</span>
     <span style="Color:blue"> If </span>ActiveWindow<span style="Color:gray">.</span>Selection<span style="Color:gray">.</span>Type <span style="Color:gray">=</span> ppSelectionNone<span style="Color:blue"> Then Exit Sub</span>
== Besonderheiten ==
=== Zeilenumbrüche ===
In PowerPoint wird ein Zeilenumbruch durch einer vertikalen Tab erzeugt.
Dieser lässt sich durch
Chr(11)
bzw.
vbVerticalTab
in VBA einsetzen.


== Beispiele ==
== Beispiele ==

Aktuelle Version vom 28. Januar 2023, 00:39 Uhr

VBA in PowerPoint

Makros aufzeichnen

Das Aufzeichnen von PowerPoint Makros ist seit Office 2007 nicht mehr möglich. Sie können sich dafür eine Entwicklungsumgebung für Office 2003 zulegen oder versuchen, in Excel aufgezeichnete Makros so anzupassen, dass sie in PowerPoint verwendet werden können. Die Aufzeichnungen von Arbeitsschritten mit Formen, Diagrammen und SmartArt können sehr gut für PowerPoint adaptiert werden.

PowerPoint Objekte

PowerPoint ist ähnlich hierarchisch aufgebaut wie Excel (Zelle liegt in Arbeitsblatt, Arbeitsblatt in Arbeitsmappe), kennt jedoch im Gegensatz zu Excel (und Word) Zustände, welche bei Excel und Word nicht berücksichtigt werden müssen, da sie nicht herbeigeführt werden können:

  • Excel
    • In Excel muss man lediglich prüfen, ob eine Arbeitsmappe geöffnet ist, denn daraus lässt sich ableiten, dass diese mindestens ein Arbeitsblatt und dieses wiederum die komplette Ausstattung an Zellen enthält.
    • Auch gibt es immer eine ActiveCell und eine ActiveSheet, sobald eine Arbeitsmappe geöffnet ist.
  • Word
    • In Word muss man ebenfalls lediglich prüfen, ob ein Dokument geöffnet ist. Daraus resultiert, dass auch immer auf einen Text in der Auswahl zugegriffen werden kann.
  • PowerPoint
    • Präsentationen können beliebig viele, aber auch keine Folien und Folien können beliebig viele, aber auch keine Formen enthalten!
    • PowerPoint kennt den Zustand, in dem nichts ausgewählt ist, obwohl die Präsentation Folien und Formen enthält!
Weitere Besonderheiten
  • Sämtliche Inhalte (Texte, Tabellen, Diagramme etc.) befinden sich in Formen, die mehr oder weniger spezialisiert sind.
  • Die Auswahl (Selection) ist dem aktuellen Fenster zugeordnet und ist ausschließlich hierrüber erreichbar.
Beispiele
    If Application.Presentations.Count < 1 Then Exit Sub
    If ActivePresentation.Slides.Count < 1 Then Exit Sub    ' PowerPoint kennt leere Präsentationen
    ' Erzeugt Fehler, wenn nichts ausgewählt ist:
 '   If ActiveWindow.Selection.ShapeRange.Count < 1 Then Exit Sub 
   
    ' PowerPoint kennt den Zustand, in dem NICHTS ausgewählt ist
    If ActiveWindow.Selection.Type = ppSelectionNone Then Exit Sub

Besonderheiten

Zeilenumbrüche

In PowerPoint wird ein Zeilenumbruch durch einer vertikalen Tab erzeugt.

Dieser lässt sich durch

Chr(11)

bzw.

vbVerticalTab

in VBA einsetzen.

Beispiele

 Public Sub ExportCurrentSlide()
     Dim strPath As String
         
     If ActivePresentation.Path = "" Then Exit Sub    ' Präsentation MUSS gespeichert sein!!!
     strPath = BrowseToPath
     If strPath = "" Then Exit Sub
     ActiveWindow.Selection.SlideRange.Item(1).PublishSlides strPath, True, True
 End Sub
 Public Sub ExportAllSlides()
     Dim strPath As String
     
     strPath = BrowseToPath
     If strPath = "" Then Exit Sub
     If CanExportSlides(strPath) = False Then Exit Sub
     ActivePresentation.PublishSlides strPath, True, True
 End Sub
 Private Function CanExportSlides(ByVal strPath As String) As Boolean
     
     If ActivePresentation.Path = "" Then
         MsgBox "Bitte speichern Sie erst diese Präsentation, bevor Sie Folien exportieren."
         Exit Function
     End If
     If FileSystem.Dir(strPath, vbDirectory) = "" Then
         MsgBox "Der Pfad '" & strPath & "' existiert nicht!"
         Exit Function
     End If
     CanExportSlides = True
 End Function