Question sur ActionSettings(ppMouseOver) avec InteractiveSequences

[petitchat_miau]

bonjour a tout le mond


J'ai un shape que j'ai lui est affecter deux tache

· une animation InteractiveSequences quand je click desus

· et un ActionSettings(ppMouseOver) qui execcute une mcaro appeler "poppup"



mon problème est lorsque la macro s' exécute l'or de l'animation celle-ci est interrompu.

Y a t'il un moyenne pour éviter cette interruption ?

 
'Mon  code 
 
 
 
Private Sub CommandButton1_Click()
 
Call AddShapeSetTiming
 
End Sub
 
 
 
Sub AddShapeSetTiming()
 
    Dim effDiamond As Effect
 
    Dim shpRectangle As Shape
 
    Dim shpOval1 As Shape
 
    Dim shpOval2 As Shape
 
    
 
    Set shpOval1 = _
 
      ActivePresentation.Slides(1).Shapes. _
 
      AddShape(Type:=msoShapeOval, Left:=400, Top:=100, Width:=100, Height:=50)
 
    Set shpOval2 = _
 
      ActivePresentation.Slides(1).Shapes. _
 
      AddShape(Type:=msoShapeOval, Left:=400, Top:=200, Width:=100, Height:=50)
 
    
 
    Set shpRectangle = ActivePresentation.Slides(1).Shapes. _
 
      AddShape(Type:=msoShapeRectangle, Left:=100, Top:=100, Width:=50, Height:=50)
 
    Set effDiamond = ActivePresentation.Slides(1).TimeLine. _
 
      InteractiveSequences.Add().AddEffect(Shape:=shpRectangle, _
 
      effectId:=msoAnimEffectPathDiagonalDownRight, trigger:=msoAnimTriggerOnShapeClick)
 
    
 
    With effDiamond.Timing
 
        .Duration = 5
 
        .TriggerShape = shpOval1
 
    End With
 
    
 
    shpOval1.ActionSettings(ppMouseOver).Run = "Popup"
 
    shpOval2.ActionSettings(ppMouseOver).Run = "Popup"
 
    
 
End Sub
 
 
 

'Le module de macro

 
 
Dim iii
 
Sub Popup()
 
Dim sld As Slide
 
Set sld = ActivePresentation.Slides(1)
 
iii = iii + 1
 
sld.Shapes(sld.Shapes.Count).TextFrame.TextRange.Text = iii + 1
 
End Sub
 
 

[Philippe JOCHMANS]

Bonjour

Pourrais-tu mettre en pièce jointe le diaporama complet en le zippant.

Merci

Philippe

[petitchat_miau]

oui voici la diaporama
et merci
Présentation1.rar

[Philippe JOCHMANS]

Bonjour

Pour l'instant je n'ai pas de solutions, en effet, Windows est multi-process, mais pas les applications Office.

Un conseil, détruis tes objets avant de les recréer, cela t'évitera d'en superposer une multitude.

Philippe