J'essaye de modifier par VBA un objet nommé "newSape" avec 3 lignes de texte et de faire en sorte que chaque ligne soit avec un décalage différent (au niveau du ruler).

Voici le code que j'ai pu récupérer à droite et à gauche:

'Décalage de la première ligne
ActivePresentation.Slides(1).Shapes("newShape").TextFrame.Ruler.Levels(1).FirstMargin = 20
ActivePresentation.Slides(1).Shapes("newShape").TextFrame.Ruler.Levels(1).LeftMargin = 15

'Décalage de la deuxième ligne
ActivePresentation.Slides(1).Shapes("newShape").TextFrame.Ruler.Levels(2).LeftMargin = 40
ActivePresentation.Slides(1).Shapes("newShape").TextFrame.Ruler.Levels(2).FirstMargin = 55

'Décalage de la troisième ligne
ActivePresentation.Slides(1).Shapes("newShape").TextFrame.Ruler.Levels(3).LeftMargin = 60
ActivePresentation.Slides(1).Shapes("newShape").TextFrame.Ruler.Levels(3).FirstMargin = 75

Le problème est que cela ne marche pas comme je voudrais la troisième ligne est au niveau de la deuxième et la première est trop à droite..

Ne peut-on pas passer par paragraphFormat ou lines (1), lines(2), etc?

Merci pour votra aide!!

vonwolf