Discussion :

[victor.dubois]

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?

[Theze]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[victor.dubois]

Genial Theze!

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

Du coup code adapté et fonctionnel! Merci

[Theze]

Je t'en prie, c'est avec plaisir