По-добри презентации, част 1: Progress bar във вашата презентация

„По-добри презентации“ е нова серия статии, които ще ви помогнат да създавате и подобрявате вашите PowerPoint презентации така, че да са по-интересни, по-красиви и по-малко скучни.

В тази статия ще прочетете как да създадете Progress Bar в дъното на вашата презентация. В нашия случай това е зелена линия, чиято дължина показва каква част от презентацията е минала. По този начин вашите слушатели ще знаят приблизително колко време остава от презентацията ви. Информацията за оставащото време намалява шанса слушателите да се отегчат по средата на презентацията.

В тази статия ще създадем такъв Progress Bar в 4 стъпки, ще започнем със стандартен дизайн, включен в Office 2010.

Стъпка 1

Намерете бутона „Macros“, както е показано на картинката. Ако използвате Office 2003 или по-стар, отидете в „Tools->Macro->Macros…“.

Стъпка 2

Ще ви се покаже следната диалогова кутия, въведете AddProgressbar и натиснете Create.

Стъпка 3

В новоотвореното поле въведете следния код:

Sub AddProgressbar()
pLeft = 0
pHeight = 10
pTop = ActivePresentation.PageSetup.SlideHeight - pHeight
For X = 1 To ActivePresentation.Slides.Count
Set pShape = ActivePresentation.Slides(X).Shapes.AddShape(msoShapeRectangle, _
pLeft, _
pTop, _
(X * ActivePresentation.PageSetup.SlideWidth) / ActivePresentation.Slides.Count, _
pHeight)
With pShape
.Fill.ForeColor.RGB = RGB(0, 220, 0)
.Name = "progressbar"
End With
Next X
End Sub

Sub DeleteProgressbar()
Dim X As Long
On Error Resume Next
For X = 1 To ActivePresentation.Slides.Count
ActivePresentation.Slides(X).Shapes(„progressbar“).Delete
Next X
End Sub

Полученият резултат би трябвало да изглежда така:

Стъпка 4

Изключете прозореца на Visual Basic for Applications и отново натиснете функцията „Macros“, там изберете AddProgressbar и натиснете Run. Ако искате да изчистите всички progress bar линии, които сте създали, изберете DeleteProgressbar.

Резултат

Така трябва да изглежда един примерен слайд от вашата презентация, картинката отдолу е десетият слайд 10 от презентация с общо 12. Подобна информация ни предава и зелената линия в дъното.

За напреднали

За да промените височината на линията, редактирайте частта от кода „pHeight = 10“, която управлява височината.

За да промените цвета на линията така, че да пасва добре на останалите цветове, редактирайте числата в скобите тук „.Fill.ForeColor.RGB = RGB(0, 220, 0)“. Тук можете да си изберете цвят и да видите формата му в RGB.

Предлагаме PowerPoint курсове за начинаещи и напреднали.

Ако имате интерес към VBA за офис приложения като Excel, препоръчваме курс за напреднали Excel 2010 – Level 3.

За всички въпроси, свързани с курсове за Microsoft Office, не се колебайте да се свържете с нас.