[PPT-2007] Animer AVEC la précédente

[iZa45]

Bonjour,

Je suis newbie en VBA (2 jours ).
Grâce à ce forum j'ai réussi à développer un quizz, mais je bute sur une question toute bête;

J'ai créé des macros pour automatiser les animations.

Je voudrais, en animant deux images, que l'image 2 soit animée AVEC la précédente et non après. Avec un tout petit décalage comme on peut le faire manuellement.
Mais j'ai beau chercher...nada !

Voici mon code

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Sub Animate6()
 
Dim mySlideIndex As Integer
Dim mySlide
 
mySlideIndex = ActiveWindow.Selection.SlideRange(1).SlideIndex
Set mySlide = Presentations(1).Slides(mySlideIndex)
 
    For i = 1 To 2
        With mySlide.Shapes("image" & i).AnimationSettings
            .EntryEffect = ppEffectWipeLeft
            .AdvanceMode = ppAdvanceOnTime
            .AdvanceTime = 0.2
        End With
    Next i
 
End Sub

Merci d'avance à qui pourra m'aider !