Manipuler des shapes et des textbox en VBA

Bonjours à tous,

J'aimerais pouvoir modifier des formes en contrôlant les dimensions et la position via VBA. De plus, j'aimerais juxtaposer des textbox à des endroits clés des shapes (grâce aux coordonnées par exemple).

Mais je n'ai pas de connaissance pour ce qui est de manipuler les shapes en vba (sinon je maîtrise suffisamment le langage). Connaissez vous un cours ou un bon tuto pour apprendre les rudiments de la manipulation de shape et textbox?

En gros j'ai besoin de:
-Sélectionner la forme choisie
-Modifier la position
-Modifier sa hauteur et largeur (le but est de mettre ma forme à une certaine échelle)
-Modifier la position et la taille d'une double flèche
-Ajouter une textbox et lui ajouter un texte


Merci de votre précieuse aide

Bonjour.

La manipultion des shapes est assez simple. Elles appartiennent à des collections shapes, elles-même filles d'une WOrksheet ou d'un Chart. Si tu veux les manipuler en VBA, sans les créer, il faudra en préparation les trouver et leur donner des noms utilisables, de façon à pouvoir faire des choses comme

Code:

---

Set oSHp = Thisworkbook.Worksheets("NomFeuil").Shapes("MonRectangleBleu")

---

Ensuite pour les dimensions c'est simple

Code:

---

1 2	oShp.Height = ... oShp.Width = ...

---

Pour la position

Code:

---

1 2	oShp.Left = ... oSHp.Top = ...

---

L'objet shape a également une propriété intéressante : Fill qui renvoie un objet FillFormat pour le choix des couleurs, motifs, polices, ...

Pour ajouter une Textbox, tu as la méthode AddTextBox de l'objet collection Shapes.

En espérant que cela t'aide,

PGZ

Tu as ça qui à mon avis peut considérablement t'aider également

http://fring.developpez.com/vba/excel/zonetxt/