Discussion :

[Platypuce]

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

[Platypuce]

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.