Skip to main content

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.