Discussion :

[ripleyxlr8]

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 :

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

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

[Invité]

Bonjour

Crée une variable

Code :

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

1
2
 
Dim objShp as Shape

Ensuite affecte lui la création de la shape et un nom

Code :

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

1
2
Set objShp = myDocument.Shapes.AddShape(msoShapeOval, 200, 200, hauteur_elipse, largeur_elipse)
objShp.Name = "toto"

Philippe

[ripleyxlr8]

Merci bcp c'est parfait