Fortschrittsbalken in PowerPoint einfügen

Einleitung

Wenn wir Präsentationen in PowerPoint erstellen, benötigen wir unter Umständen einen Fortschrittsbalken in der Präsentation. PowerPoint hat nur leider keine eigene Funktion einen Fortschrittsbalken einzufügen. Dazu verwenden wir ein Skript um dieses Problem zu umgehen. 

Mit dem Skript wird dann ein Fortschrittsbalken generiert der sich auf den Folien langsam vergrößert. Die Größe wird Prozentual anhand der erstellen Folien generiert. 

Anwendung

Präsentation ohne Deckblatt

Sub CreateProgressBar()
  On Error Resume Next
  With ActivePresentation
    For X = 1 To .Slides.Count
    .Slides(X).Shapes("PB").Delete
    Set s = .Slides(X).Shapes.AddShape(msoShapeRectangle, _
    0, .PageSetup.SlideHeight - 8, _
    X * .PageSetup.SlideWidth / .Slides.Count, 8)
    s.Fill.ForeColor.RGB = RGB(0, 0, 255)
    s.Name = "PB"
    Next X:
  End With
End Sub

Präsentation mit Deckblatt

Sub CreateProgressBar()
  On Error Resume Next
  With ActivePresentation
    For X = 2 To .Slides.Count
    .Slides(X).Shapes("PB").Delete
    Set s = .Slides(X).Shapes.AddShape(msoShapeRectangle, _
    0, .PageSetup.SlideHeight - 8, _
    X * .PageSetup.SlideWidth / .Slides.Count, 8)
    s.Fill.ForeColor.RGB = RGB(0, 0, 255)
    s.Name = "PB"
    Next X:
  End With
End Sub

Die Farben können wir mithilfe der RGB Farbcodes in Zeile 9 anpassen.