beruflich muss ich gerade recht häufig powerpointfolien erstellen. mit corporate design ist das nicht übermäßig schwer, man muss bloß die gängigen parameter der äußeren form einhalten.
in der berufsschule haben wir etwas mehr freiheiten … und damit auch die qual der wahl. vorteilhaft hier ist aber, dass man modernere konzepte wie einen fortschrittsbalken mit einfügen kann.
den ersten habe ich noch manuell erstellt. jedes autoform einzeln, auf jeder folie eins mehr. nervig. vor allem bei überarbeitungen.
ich habe mal ein bisschen gesucht und bin auf ein recht simples makro gestoßen:
das macht zwar wirklich nur so nen balken ganz unten, aber das konzept ist sicherlich ausbaufähig.
makroeditor aufrufen, modul einfügen, folgenden text reinpasten und makro ausführen.
Sub AddProgressBar()
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 - 12, _
X * .PageSetup.SlideWidth / .Slides.Count, 12)
s.Fill.ForeColor.RGB = RGB(127, 0, 0)
s.Name = "PB"
Next X:
End With
End Sub
traumhaft einfach, und löscht sogar wieder den alten balken, wenn man was überarbeitet hat.