Cum sa adaugam bara de progres in PowerPoint?

Configurare noua (How To)

Situatie

Componente vizuale speciale precum progress bar va pot face prezentarea PowerPoint mult mai aspectuoasa pentru public. O bara de progres va arata statusul paginii curente in relatie cu numarul total de pagini ale prezentarii.

Inserarea unei bare de progres se poate face doar cu ajutorul macro. Folosind VBE, sau visual basic editor, veti putea scrie cod specific pentru inserarea barei in PowerPoint si configurare a culorii, inaltimii si grosimii dorite a barei

Solutie

De obicei bara de progres se va aseza in partea de jos a slide-ului PowerPoint, pastrand-o mica si subtila in proportie cu restul prezentarii. Pentru inserarea barei navigati catre meniul Tools > Macro > Visual Basic Editor.

In fereastra care va aparea selectati Insert > Module, si apoi introduceti textul de mai jos in pagina alba:

  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       

Apoi navigati catre File > Close Return to PowerPoint. Veti fi readusi inapoi la prezentarea dumneavoastra.

Navigati catre Tools > Macro > Macros. Selectati AddProcessBar si apasati pe Execute. Acum bara de progres ar trebui sa apara:


Pentru a elimina bara de progres:

Daca doriti sa eliminati bara de progres din prezentarea PowerPoint navigati catre modulul dumneavoastra si inlocuiti urmatorul cod:

Set s = .Slides(X).Shapes.AddShape(msoShapeRectangle, _ 0, .PageSetup.SlideHeight – 12, _ X * .PageSetup.SlideWidth / .Slides.Count, 12)
cu urmatorul:

 

Set s = .Slides(X).Shapes.AddShape(msoShapeRectangle, 0, 0, 0, 0)
Rulati macro-ul pentru eliminarea barei de progres.

 

Tip solutie

Permanent

Voteaza

(30 din 51 persoane apreciaza acest articol)

Despre Autor

Leave A Comment?