Die Fortschrittsanzeigen-Vorlage in Powerpoint

Wenn Sie anzeigen möchten, wie weit Sie in Ihrer Präsentation fortgeschritten sind, hilft Ihnen dieses Prozedere.

1. „Optionen“ auswählen.
2. „Menüband anpassen“
3. Haken bei „Entwicklertools“.
4. Speichern mit „OK“.
5. Tab „Entwicklertools“
6. „Visual Basic“.
7. „Einfügen“
8. „Modul“.
9. Folgendes einfügen

10. Option Explicit
    Public Dia As Slide
    Public silhouette As Shape
    
    Sub EinfuegenFA()
      Dim Seitenzahl As Long
      Seitenzahl = ActivePresentation.Slides.Count
      For Each Dia In ActivePresentation.Slides
        Set silhouette = Dia.Shapes.AddShape(1, 20, 400, 348 / Seitenzahl * Dia.SlideNumber, 1)
        silhouette.Fill.ForeColor.RGB = RGB(0, 20, 15)
        silhouette.Name = "Fortschrittsanzeige" & Dia.SlideNumber
        silhouette.Fill.BackColor.RGB = RGB(0, 20, 15)
      Next
    End Sub
    
    Sub FALoeschen()
      For Each Dia In ActivePresentation.Slides
        For Each silhouette In Dia.Shapes
          If silhouette.Name Like "Fortschrittsanzeige*" Then
              silhouette.Delete
          End If
        Next
      Next
    End Sub
    

11. Verlassen
12. „Entwicklungstools“
13. „Makros“
14. Eintrag „EinfuegenFA“ markieren
15. „Ausführen“
16. Aktualisieren: „Makros“ > „FALoeschen“ -> ab Schritt 10. wiederholen