Discussion :

[akwell]

bonjour,
j'aimerai bien mettre une barre d'avancement dans ma présentation mais je sais pas du tout comment faire.
j'ai mis en pièce jointe ce à qui je voudrais arriver.

Dans ma présentation, j'ai 3 section. Actuellement je suis dans la section "résultats" et au slide 4 sur 7.

j'espère que j'ai été assez clair.

Bonne soirée à tous

Akwell

[Invité]

Bonjour

Ta barre c'est pour l'ensemble de la présentation ou par chapitre ?

Philippe

[Sepia]

Salut Akwell,

Si tu n'as pas d'autre contrainte, comme tu connais le diaporama que tu construis (je n'ai rien lu sur du dynamisme), tu sais que tu es à la ième diapo sur n dans ton chapitre et/ou dans ta présentation. Il suffit alors que tu dessines 2 rectangles : un qui représente tout ton chapitre ou toute ta présentation donc les slides et qui mesure L cm et un plus petit qui représente ton avancement positionné à la même origine que le grand de longueur = (L * i) / n cm

Ainsi pour 10 transparents avec un grand rectangle de 15 cm, pour chaque nouveau transparent ajoute 1,5 cm au petit rectangle

Tout simple

@+

[yoannthevenoux]

Bonjour, j'ai actuellement une problèmatique assez proche de celle de akwell, avec publisher 2010.

J'ai une présentation avec plusieurs sections, dans chaque diapositive, je souhaitrais insérer une barre d'avancement dans la section, qui revient donc à zéro à chaque nouvelle section.

Comme c'est une action que je souhaitrais refaire sur plusieurs présentation où le nombre de section et de diapo est différent, j'aimerai utiliser une macro (le problème est que je connais presque rien en VBA)

J'ai trouver une fonction sur internet d'une progressbar globale sur la présentation :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
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

Il y a-t-il une solution pour connaitre le nombre de slide d'une section?
La largeur de la barre serait définie par (X-(nombre de slides des sections précédentes))/(nombre de slides de la section courante).

En bonus, est-il possible d'appliquer cette macro seulement sur certaine diapo? (toutes sauf diapositive de titre, et titre de section par exemple)