Bonjour, je suis assez nouveau sur VBA et je cherche à déplacer une Shape d'une slide à la suivante.
Voici le code qui sert à déplacer les Shapes dans une slide.
Mais je ne trouve pas comment le faire fonctionner pour faire passer la Shape à la slide suivante.
Code :
- Dim Sld As Slide
- Dim Shp As Shape
- For Each Sld In ActivePresentation.Slides
- For Each Shp In Sld.Shapes
- With Shp
- If .Type = msoAutoShape _
- And .Left = 715 _
- And .Top = 366 _
- Then
- A déplacer dans la slide suivante
- .Left = 50 'change the number for desired x position
- .Top = 50 'change the number for desired y position
- End If
- End With
- Next 'Shape
- Next Sld ' Slide
|
Aussi, c'est un PPT de 20 - 30 slide, et il y a une Shape au même endroit sur chaque slide, d'où le "For Each slide"
Merci d'avance.
