comment créer une barre de progression en fct du nb de slides ?

Le
DAvid
je cherche a afficher un ebarre de progression qui se remplie en fct du
nombres de pages
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Nikita
Le #1868478
Salut,

un exemple ici (j'aime bien l'auteur...) :
http://www.01net.com/article/327090.html

Voici le code copiable :
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

Niki

je cherche a afficher un ebarre de progression qui se remplie en fct du
nombres de pages


--
Niki

Publicité
Poster une réponse
Anonyme