Sélectionner plusieurs Shape pour appliquer une animation

Bonjour,

Je souhaite appliquer une animation simple (apparition) et un ordre d'affichage identique pour plusieurs Shape.

J'utilise ce bout de code:

Code:

---

1 2 3 4 5 6 7 8 9 10

Set PptDoc = ActivePresentation   Dim oeff As Effect Dim osld As Shape 'PptDoc.Slides(3).Select   With PptDoc.Slides(3) Set oeff = .TimeLine.MainSequence.AddEffect(Shape:=.Shapes("Objet A" ), effectID:=msoAnimEffectAppear, trigger:=msoAnimTriggerOnPageClick, Index:=1) Set oeff = .TimeLine.MainSequence.AddEffect(Shape:=.Shapes("Objet B" ), effectID:=msoAnimEffectAppear, trigger:=msoAnimTriggerOnPageClick, Index:=1) End With

---

Avec ce code, l'objet B a un ordre d'affichage incrémenté d'un par rapport à l'objet B, ce qui ne répond pas au besoin.

Existerait-il un code qui permette que l'objet B s'affiche en même temps que l'objet A ?

Merci,
Cyril

Citation:

---

Envoyé par Cyril8888855555

l

---

Bonjour,

Juste une remarque sans VBA : Le groupement des deux shapes ne serait pas suffisant ?

Bonjour,

Oui, c'est possible mais il y a 50 fichiers PowerPoint sur lesquels mettre en place les animations.
C'est pourquoi, je souhaitai automatiser cela. Sachant que ces fichier PPT sont générés par VBA et ont la même structure et organisation.

Merci,

Citation:

---

Envoyé par Cyril8888855555

---

Si les shapes sont du type 14 (comme celles natives dans un slide), visiblement elles ne peuvent pas être groupées. En revanche, en créant des formes de type 1 AutoShape (celles en ajoutant depuis le menu), celles-ci peuvent être groupées. Selon le contenu, ces formes peuvent être générées en VBA pour remplacer les formes de type 14.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Sub GrouperDeuxShapes()   Dim PptDoc As Presentation Dim oeff As Effect Dim osld1 As Shape, osld2 As Shape, osld_AB As Shape   Set PptDoc = ActivePresentation   With PptDoc.Slides(3) Set osld1 = .Shapes("Rectangle 1") Set osld2 = .Shapes("Rectangle 2") Set osld_AB = .Shapes.Range(Array(osld1.Name, osld2.Name)).Group Set oeff = .TimeLine.MainSequence.AddEffect(Shape:=osld_AB, effectID:=msoAnimEffectAppear, trigger:=msoAnimTriggerOnPageClick, Index:=1) End With   Set osld_AB = Nothing Set osld1 = Nothing Set osld2 = Nothing Set PptDoc = Nothing   End Sub

---

Merci Eric, ton code fonctionne. Je vais tester cela sur l'ensemble de mon fichier PowerPoint.