VBA PPT - Déplacer une Shape d'une slide à une Autre

VBA PPT - Déplacer une Shape d'une slide à une Autre - VB/VBA/VBS - Programmation

Marsh Posté le 01-03-2016 à 20:50:15    

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 :
  1. Dim Sld As Slide
  2.         Dim Shp As Shape
  4.     For Each Sld In ActivePresentation.Slides
  6.         For Each Shp In Sld.Shapes
  7.             With Shp
  8.                 If .Type = msoAutoShape _
  9.                     And .Left = 715 _
  10.                     And .Top = 366 _
  11.                     Then
  12. A déplacer dans la slide suivante
  13.                         .Left = 50 'change the number for desired x position
  14.                         .Top = 50 'change the number for desired y position
  15.                 End If
  16.             End With
  17.         Next 'Shape
  18.     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.

Reply

Marsh Posté le 01-03-2016 à 20:50:15   

Reply

Marsh Posté le 05-03-2016 à 13:17:05    

 
            Bonjour, bonjour !
 
            Je n'y connais rien mais juste en ouvrant l'aide VBA interne concernant les propriétés de l'objet Slide : SlideIndex ‼
 
            Voilà, voilà !
 

Reply

Sujets relatifs:

Leave a Replay

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