Modifier le type de Shape

Bonsoir le Forum,

Je souhaiterai savoir si vous avez une idée de code pour :
- Modifier le type d'une Shape. Exemple: Je crée un triangle sur ma feuille et via une macro, j'aimerai que ce triangle devienne un carré ou un rond (pardon, un rectangle ou un ovale ;) ).

Est-ce possible?

Bonjour,

Pour le test, tu pose sur ta feuille un Shape comme par exemple un triangle et dans la zone de nom tu clique gauche afin de surligner et tu remplace le texte existant par "MaForme" tu valide avec Entrée puis, tu pose un bouton "Formulaire" et tu lui affecte la macro "Test" ci-dessous puis tu clique autant de fois que tu veux la forme va changer avec un maximum de 137 possibilités. L'index de la forme est inscrit dans celle-ci :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sub Test()   Dim S As Shape Static I As Integer   Set S = Worksheets("Feuil1").Shapes("MaForme") I = I + 1   If I > 137 Then I = 1   S.TextEffect.FontBold = True S.TextFrame.Characters.Text = I   S.AutoShapeType = I   End Sub

---

Genial Theze!

Pas mal du tout ton code pour voir à quelle forme correspond un numéro AutoShapeType!

Du coup code adapté et fonctionnel! Merci :)

Je t'en prie, c'est avec plaisir ;)