Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Nikita
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
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
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