Vba, SmartArt : Comment changer les tailles ?
Bonjour,
J'ai écris une macro vba qui crée des smartart et je voudrais modifier la taille des formes utilisées dans la smartart et les marges entre-elles. Je sais déjà modifier la taille de la smartart elle même avec :
Code:
1
2
3
| Set WdSmartArtLayout = Application.SmartArtLayouts(1)
Set Rangée = ActiveSheet.Shapes.AddSmartArt(WdSmartArtLayout)
Rangée.Height=300 |
mais à l'intérieur même de la smartart je n'arrive pas à trouver la syntaxe qui permet de modifier la hauteur, la largeur et l'écart entre chaque forme qui compose la smartart. Malheureusement l'enregistreur de macro ne marche pas pour ce type d'objet quand je modifie ces paramètres à la main donc je n'arrive pas à trouver les bonnes propriétés.
Pourtant j'arrive à accéder à quelques unes des propriétés des formes, par exemple pour changer la couleur de la bordure de la 1ère forme du smartart :
Code:
Rangée.SmartArt.Nodes(1).Shapes.Line.ForeColor.RGB = RGB(255, 255, 255)
ça, ça marche bien
Par contre pour ce que je cherche, j'ai essayé plein de trucs tout bête comme :
Code:
Rangée.SmartArt.Nodes(1).Shapes.Height
mais rien ne marche et je sèche complètement.
Est-ce que quelqu'un connaitrait donc la bonne synthaxe VBA pour modifier la hauteur, la largeur et l'écart entre les formes d'un smartart ? Ca doit exister puisqu'on peut le faire à la main sans problème.
Merci beaucoup par avance pour votre aide
