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