Wstaw pasek postępu do prezentacji PowerPoint

Dodane elementy wizualne, takie jak pasek postępu, mogą sprawić, że prezentacje PowerPoint będą bardziej atrakcyjne dla widzów. Pasek postępu pokaże status bieżącego slajdu w stosunku do całkowitej liczby slajdów w prezentacji.

Wstawianie paska postępu należy wykonać za pomocą makra . Używając VBE lub wizualnego edytora podstawowego, możesz napisać specyficzny kod, aby wstawić pasek do programu PowerPoint i skonfigurować żądany kolor, wysokość i szerokość paska. Ten artykuł wyjaśni, w jaki sposób.

Dodaj pasek postępu do prezentacji PowerPoint

Pasek postępu jest zazwyczaj umieszczany na dole slajdu programu PowerPoint, utrzymując go w subtelności w odniesieniu do reszty zawartości. Aby wstawić pasek, przejdź do Narzędzia > Makro > Edytor Visual Basic .

W oknie, które zostanie otwarte, wybierz Wstaw > Moduł, a następnie wstaw ten tekst do pustej strony:

 Sub AddProgressBar ()
On Error Resume Next
Z ActivePresentation
Dla X = 1 Do .Slides.Count
.Poślizg (X) .Kształty („PB”). Usuń
Ustaw 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"
Następny X:
Kończyć z
Napis końcowy

Następnie przejdź do Plik > Zamknij > Wróć do PowerPoint . Zostaniesz przywrócony do prezentacji.

Teraz przejdź do Narzędzia > Makro > Makra . Wybierz AddProcessBar i naciśnij Execute . Teraz powinien zostać wyświetlony pasek postępu:

Usuń pasek postępu z programu PowerPoint

Jeśli chcesz usunąć pasek postępu z prezentacji PowerPoint, po prostu wróć do swojego modułu i zastąp ten kod:

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

z następującymi:

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

Uruchom makro, aby usunąć pasek postępu.