Fortschrittsbalken in PowerPoint einfügen

Einleitung

Wenn wir PräPräsentationen in PowerPoint erstellen, benöbenötigen wir unter UmstäUmständen einen Fortschrittsbalken in der PräPräsentation. PowerPoint hat nur leider keine eigene FunktionFunktion, einen Fortschrittsbalken einzufü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ößvergrößert. Die GrößGröße wird Prozentual anhand der erstellen Folien generiert. 

Anwendung

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