Umetnite traku napretka u PowerPoint prezentaciju

Dodane vizualne komponente poput trake napretka mogu učiniti vaše PowerPoint prezentacije mnogo privlačnijima gledateljima. Traka napretka prikazat će status trenutnog slajda u odnosu na ukupan broj slajdova u prezentaciji.

Umetanje trake napretka mora se izvršiti putem makroa . Pomoću VBE-a, ili vizualnog osnovnog editora, možete napisati određeni kod za umetanje trake u vaš PowerPoint i konfigurirati željenu boju, visinu i širinu trake. Ovaj će članak objasniti kako.

Dodajte traku napretka u PowerPoint prezentaciju

Traka napretka obično se nalazi na dnu slajda PowerPointa, zadržavajući je suptilno u odnosu na ostatak sadržaja. Da biste umetnuli traku, prijeđite na Alati > Makro > Visual Basic Editor .

U prozoru koji se otvori odaberite Umetni > Modul, a zatim umetnite ovaj tekst na praznu stranicu:

 Sub AddProgressBar ()
Na pogrešci se nastavi dalje
S aktivnom prezentacijom
Za X = 1 To. Slides.Count
.Slides (X) .Shapes ( "PB"). Brisanje
Postavite 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"
Sljedeći X:
Završi s
Kraj pod

Zatim idite na File > Close > Return to PowerPoint . Vratit ćete se na prezentaciju.

Sada idite na Alati > Makro > Makronaredbe . Odaberite AddProcessBar i pritisnite Execute . Sada bi trebala biti prikazana traka napretka:

Uklonite traku napretka iz PowerPointa

Ako želite ukloniti traku napretka iz PowerPoint prezentacije, jednostavno se vratite u modul i zamijenite ga:

 Postavite s = .Slides (X) .Shapes.AddShape (msoShapeRectangle, _0, .PageSetup.SlideHeight - 12, _ X * .PageSetup.SlideWidth / .Slides.Count, 12) 

sa sljedećim:

 Postavite s = .Slides (X) .Shapes.AddShape (msoShapeRectangle, 0, 0, 0, 0) 

Pokrenite makronaredbu da biste uklonili traku napretka.