Indsæt Progress Bar i PowerPoint-præsentation
Indsætning af en statuslinje skal ske via makro . Ved hjælp af en VBE eller visuel grundredaktør kan du skrive specifik kode for at indsætte linjen i din PowerPoint og konfigurere den ønskede farve, højde og bredde af linjen. Denne artikel vil forklare hvordan.
Tilføj Progress Bar til PowerPoint-præsentation
En statuslinje er normalt placeret nederst på din PowerPoint-dias, så den bliver subtil i forhold til resten af dit indhold. For at indsætte stangen skal du gå over til Værktøjer > Makro > Visual Basic Editor .I vinduet, der åbnes, skal du vælge Indsæt > Modul og derefter indsætte denne tekst på den tomme side:
Sub AddProgressBar ()På fejl fortsæt næste
Med ActivePresentation
For X = 1 Til .Slides.Count
.Slides (X) .Shapes ( "PB"). Delete
Indstil 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"
Næste X:
Slut med
Slutdel
Gå derefter til Filer > Luk > Returner til PowerPoint . Du vil blive bragt tilbage til din præsentation.
Gå nu til Værktøjer > Makro > Makroer . Vælg AddProcessBar og tryk på Execute . En statuslinje skal nu vises:
Fjern Progress Bar fra PowerPoint
Hvis du vil fjerne din statuslinje fra din PowerPoint-præsentation, skal du blot gå tilbage til dit modul og erstatte denne kode:Indstil s = .Slides (X) .Shapes.AddShape (msoShapeRectangle, _ 0, .PageSetup.SlideHeight - 12, _ X * .PageSetup.SlideWidth / .Slides.Count, 12)
med følgende:
Indstil s = .Slides (X) .Shapes.AddShape (msoShapeRectangle, 0, 0, 0, 0)
Kør makroen for at fjerne din statuslinje.