Bonjour,
J'utilise ce code sous PowerPoint mais je ne comprend pas pourquoi dans ma barre, j'ai un rectangle et en plus, il est encadré avec une couleur plus foncé ?
J'aimerais n'avoir que le rectangle sans aucun contour
Voici le code :
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 - 540, _
X * .PageSetup.SlideWidth / .Slides.Count, 10)
s.Fill.ForeColor.RGB = RGB(255, 0, 0)
s.Name = "PB"
Next X:
End With
End Sub
Merci