VBA PPT - Sélectionner plusieurs Shape pour appliquer une animation

Recherche :

Dernière réponse
Sujet : VBA PPT - Sélectionner plusieurs Shape pour appliquer une animation
cyril8888855555	Bonjour, Je souhaite appliquer une animation simple (apparition) et un ordre d'affichage identique pour plusieurs Shape. J'utilise ce bout de code: 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

Dernière réponse

Sujet : VBA PPT - Sélectionner plusieurs Shape pour appliquer une animation

cyril8888855555

Bonjour,

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

J'utilise ce bout de code:
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