Vba > SHAPE Line récupérer son nom

[herve62]

Bonsoir à tous
Je viens de balayer l'aide VBA mais .... trouve pas !!!
Est-il possible ( comme les graphs) de récupérer ou d'affecter un nom de LIGNE TRACEE
ex , je trace une ligne :

ActiveSheet.Shapes.AddLine(100, 200, c1 * 100, 200).Select

Et ce que j'aimerai, c'est qu'une fois l'appli terminée je puisse effacer automatiquement cette ligne ( sinon ca cumule lorsque l'on recommence)
Je me suis aperçu que VBA affecte ( comme les graphiques ,et là je sais faire!) un nom à cette SHAPE ; ex : LINE43 , puis 44 ..etc

Un exemple :

ActiveSheet.Shapes("Line 47").Select
Selection.Cut


Donc il serait interessant de lui donner un nom au début : LINE1 , comme ça ensuite je peux la selectionner et faire un CUT
Je trouve pas comment mettre le .NAME ???

j'ai essayé Ce code mais donne erreur 13 ! :
ActiveSheet.Shapes.AddLine("line1")(100, 200, c1 * 100, 200).Select


Merci de votre support

 

[BOISGONTIER]

Re : Vba > SHAPE Line récupérer son nom

Bonsoir,

ActiveSheet.Shapes.AddShape(msoShapeOval, 10, 10, 60, 50).Name = "MonShape"

Les images et shapes

JB

 

[herve62]

Re : Vba > SHAPE Line récupérer son nom

Bonsoir JB
est ce que je dois remplacer :
ActiveSheet.Shapes.AddLine(100, 200, c1 * 100, 200).Select
par ton instruction ? car je vois OVAL et moi c'est LINE ?

 

[herve62]

Re : Vba > SHAPE Line récupérer son nom

Bonjour à tous
Bien d'avoir répondu ; mais j'ai posé la question sur le traçage d'une ligne .... et j'ai un exemple d'OVALE ? qui certe fonctionne
Enfin après avoir passé un certain temps a Balayer le lien ( interessant et bien copieux que je vais garder) je m'en suis sorti !!!!

ActiveSheet.Shapes.AddLine(100, 200, c1 * 100, 200).Name = "LINE1"
ActiveSheet.Shapes("LINE1").Line.Weight = 1#

Merci JB