Ein Fortschrittsbalken ist eine Grafik, die in PowerPoint den Prozentsatz der abgeschlossenen Diashow visuell darstellt. Es ist auch ein guter Indikator für den verbleibenden Betrag. So erstellen Sie einen Fortschrittsbalken in Microsoft PowerPoint.
Sie können einen Fortschrittsbalken manuell erstellen, indem Sie am unteren Rand jeder Folie eine Form einfügen. Das Problem bei diesem Ansatz besteht darin, dass Sie die Länge jeder Form basierend auf der Anzahl der Folien in der Präsentation messen müssen. Wenn Sie eine Folie hinzufügen oder entfernen, müssen Sie außerdem den Fortschrittsbalken auf jeder Folie in der Diashow manuell wiederholen.
Um alles konsistent zu halten und sich ernsthafte Kopfschmerzen zu ersparen, können Sie ein Makro verwenden, um einen Fortschrittsbalken zu erstellen. Mit diesem Makro passt sich der Fortschrittsbalken automatisch an die Anzahl der Folien in der Präsentation an.
VERBUNDEN: Makros erklärt: Warum Microsoft Office-Dateien gefährlich sein können
Öffnen Sie zunächst die PowerPoint-Präsentation, für die Sie einen Fortschrittsbalken erstellen möchten. Klicken Sie nach dem Öffnen auf die Registerkarte “Ansicht” und wählen Sie “Makros”.
Das Fenster „Makro“ wird angezeigt. Geben Sie im Textfeld unter „Makroname“ einen Namen für Ihr neues Makro ein. Der Name darf keine Leerzeichen enthalten. Klicken Sie nach der Eingabe auf „Erstellen“ oder, wenn Sie einen Mac verwenden, auf das „+“-Symbol.
Nun öffnet sich das Fenster „Microsoft Visual Basic for Applications (VBA)“. Im Editor sehen Sie diesen Code:
Sub ProgressBar()
End Sub
Platzieren Sie zunächst Ihren Cursor zwischen den beiden Codezeilen.
Kopieren Sie als Nächstes diesen Code und fügen Sie ihn ein:
On Error Resume NextWith ActivePresentationFor X = 1 To .Slides.Count.Slides(X).Shapes(PB).DeleteSet s = .Slides(X).Shapes.AddShape(msoShapeRectangle, _0, .PageSetup.SlideHeight 12, _X * .PageSetup.SlideWidth / .Slides.Count, 12)s.Fill.ForeColor.RGB = RGB(127, 0, 0)s.Name = PBNext X:End With
Nach dem Einfügen sollte Ihr Code im Editor so aussehen.
Note: Es gibt jetzt keine Zeilenumbrüche zwischen der ersten und der letzten Codezeile.
Sie können nun das VBA-Fenster schließen. Zurück in Microsoft PowerPoint klicken Sie erneut auf „Makros“ auf der Registerkarte „Ansicht“.
Wählen Sie als Nächstes Ihren Makronamen (in unserem Beispiel „ProgressBar“), um ihn auszuwählen, und klicken Sie dann auf „Ausführen“.
Der Fortschrittsbalken wird nun am unteren Rand jeder Folie Ihrer Präsentation angezeigt.
Wenn Sie eine Folie löschen, passt sich der Fortschrittsbalken automatisch an. Wenn Sie eine neue Folie hinzufügen, müssen Sie das Makro erneut ausführen (Ansicht > Makro > Ausführen). Es ist eine kleine Unannehmlichkeit im Vergleich zur manuellen Anpassung.
