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

VBA PPT - Sélectionner plusieurs Shape pour appliquer une animation - VB/VBA/VBS - Programmation

Marsh Posté le 03-07-2020 à 19:29:58    

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


Message édité par cyril8888855555 le 03-07-2020 à 19:36:31
Reply

Marsh Posté le 03-07-2020 à 19:29:58   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed