Fortschrittsbalken in PowerPoint einfügen

In diesem kurzen Artikel findest du den VBA-Code, um in eine PowerPoint Präsentationen einen Fortschrittsbalken einzufügen. Dieser muss dann einmalig ausgeführt werden.

Wahlweise kann auch der RGB-Code angepasst werden, falls eine andere Farbe gewünscht ist.

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