Nommer une shape lors de sa creation
Bonjour à tous,
Je travaille actuellement sur la création automatisée de graphique avec Excel.
Je crée une shape avec un code comme celui ci :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
Sub Update()
Set myDocument = Worksheets(1)
Dim hauteur_elipse As Integer
Dim largeur_elipse As Integer
hauteur_elipse = Range("B2").Value
largeur_elipse = Range("B3").Value
myDocument.Shapes.AddShape msoShapeOval, 200, 200, hauteur_elipse, largeur_elipse
End Sub |
J'aimerais ensuite modifier les paramètres de cette forme avec une commande telle que :
Shape(X).ScaleHeight
le problème vient du fait qu'il y a plein de shape dans ma page et que la gestion via le numéro d'index donner automatique a ma shape par Excel ou le nom donné automatiquement ne me permet pas de gerer precisement chaque forme.
J'aimerais pouvoir lors de la creation d'une Shape lui donner immediatement un nom que j'aurais defini.
Est ce possible?
Merci d'avance
