Bonjour,
Je souhaite réaliser une barre de progression non pas avec une shape classique "rectangle" mais avec une shape image.
Cette image est présente sur toutes les slides au même endroit nommée "Image 55".
Pour chaque slide, la macro doit faire avancer l'Image 55 telle un barre de progression.
La macro ci-dessous fait le travail mais il n'y a pas d'incrémentation en fonction du nombre de diapos. Quelqu'un pourrait m'aider à écrire la ligne permettant d'incrementer le déplacement de la shape en fonction du nombre de diapos ?
Merci de votre aide
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23 Sub AddProgressBar() 'On Error Resume Next With ActivePresentation For X = 1 To .Slides.Count Dim pcs_Shape As Shape Dim b_Find As Boolean b_Find = False For Each pcs_Shape In .Slides(X).Shapes If pcs_Shape.Name = "Picture 55" Then b_Find = True Exit For End If Next pcs_Shape If b_Find Then .Slides(X).Shapes("Picture 55").Left = .Slides(X).Shapes("Picture 55").Left - 1000 'va faire avancer la shape de 1000 pour TOUTES les diapos End If Next X End With End Sub
Partager