Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1015 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

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

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

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

n°2276704
mawakazi
Posté le 01-03-2016 à 20:50:15  profilanswer
 

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

mood
Publicité
Posté le 01-03-2016 à 20:50:15  profilanswer
 

n°2277046
Marc L
Posté le 05-03-2016 à 13:17:05  profilanswer
 

 
            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à !
 


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

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

 

Sujets relatifs
[VBA/Excel] Ouverture de Fichier User FriendlyFonction couper-coller VBA
Chronomètre en VBAVBA Word prend son temps
Probleme compatibilité VBA MSFLEXGRID Excel 2013Retourner une variable à un programme VBA appelant
VBA Word pile saturéeCode VBA trop lent
Conversion algorithme Python -> VBA (combinaisons de p élém. parmi n) 
Plus de sujets relatifs à : VBA PPT - Déplacer une Shape d'une slide à une Autre


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR