Fortschrittsbalken in PowerPoint einfügen

Einleitung

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

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

Anwendung

PräsentationPrä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äsentationPrä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önnenkönnen wir mithilfe der RGB Farbcodes in Zeile 9 anpassen.