Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBA PowerPoint Discussion :

Changer les marges internes via VBA


Sujet :

VBA PowerPoint

  1. #1
    Nouveau Candidat au Club
    Homme Profil pro
    Étudiant
    Inscrit en
    juillet 2019
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 16
    Localisation : France, Manche (Basse Normandie)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : juillet 2019
    Messages : 2
    Points : 1
    Points
    1
    Par défaut Changer les marges internes via VBA
    Bonjour,
    Je suis débutant en VBA, et je travaille sur Powerpoint 2016. Je cherche à modifier les propriétés d'un objet "Shape" avec VBA.
    J'ai un seul Slide avec un seul objet Shape,qui est un tableau (ou liste) de 4 colonnes sur 10 lignes, avec du texte dans chacunes des cellules (je ne sais pas si dans PowerPoint, le terme "cellule" est adapté).
    J'arrive à modifier des propriétés de l'objet Shape telles que Left, Top, Height, Width, mais maintenant je dois modifier les marges internes (ou padding) dans les cellules de ma table.
    Je suppose que je dois agir sur l'objet "TextFrame" et la propriété MarginLeft par exemple.
    Le code suivant:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
     
    Dim myShape As Shape
    ActivePresentation.Slides(1).Select
    Set myShape = ActivePresentation.Slides(1).Shapes(1)
          myShape.TextFrame.MarginLeft = 5
    ne fonctione pas, et un message d'erreur " The specified value is out of range " apparait.
    Est-ce que vous pouvez m'aider à comprendre mon erreur ?

    Merci d'avance
    Platypuce

  2. #2
    Nouveau Candidat au Club
    Homme Profil pro
    Étudiant
    Inscrit en
    juillet 2019
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 16
    Localisation : France, Manche (Basse Normandie)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : juillet 2019
    Messages : 2
    Points : 1
    Points
    1
    Par défaut
    Bonjour,
    Je viens de tester la propriété " HasTextFrame " que j'affiche via un msg box et cela me donne 0.
    Cela veut dire que mon objet Shape n'a pas de TextFrame ? Si oui, pourquoi ? Puisqu'il y a du texte dedans.
    Merci,
    Platypuce.

Discussions similaires

  1. [XL-2013] Garder les marges personnalisées en VBA
    Par Novice72 dans le forum Excel
    Réponses: 6
    Dernier message: 30/10/2016, 23h29
  2. Changer les marges d'une page sans utiliser geometry
    Par asmca1263 dans le forum Mise en forme
    Réponses: 3
    Dernier message: 25/08/2015, 17h44
  3. [XL-2010] Changer police de caractère via VBA
    Par Logistiq dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 07/07/2014, 16h06
  4. changer les marges d'une entête
    Par salrouge dans le forum Windows Forms
    Réponses: 3
    Dernier message: 17/08/2007, 17h14
  5. Réponses: 69
    Dernier message: 15/06/2006, 11h42

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo