Nom d'une Shape line

Version imprimable

10/12/2010, 13h13
emmanuel89500

Nom d'une Shape line

Bonjour,
La question est la suivante :

Je crée un segment sur une feuille :

Code:

ActiveSheet.Shapes.AddLine(300, 50, 700, 500).Line.ForeColor.RGB = RGB(255, 0, 0)

par la suite, je souhaite translater cette ligne par l'intermédiaire d'un scrollbar parexemple.
Le problème est que pour que je puisse selectionner la ligne en question pour la déplacer, il faut que je connaisse son NOM, où que je lui attribue un NOM!

Donc comment CONNAÎTRE ou ATTRIBUER un NOM à une ligne?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Dim maLigne As Shape
 
'Affecte la variable maLigne à la ligne nommée LaLigne
On Error Resume Next
Set maLigne = ActiveSheet.Shapes("LaLigne")
On Error GoTo 0
'Si LaLigne n'existe pas, on la crée
If maLigne Is Nothing Then
    Set maLigne = ActiveSheet.Shapes.AddLine(300, 50, 700, 500)
    With maLigne
        .Line.ForeColor.RGB = RGB(255, 0, 0)
        .Name = "Laligne"
    End With
    MsgBox "créée"
Else
    MsgBox "LaLigne existe déjà"
End If
'on est sûr de l'existence d'une ligne appelée LaLigne
maLigne.Left = 0
MsgBox "LaLigne déplacée"
Set maLigne = Nothing

10/12/2010, 13h29
Godzestla
Bonjour,

tu peux également retrouver ta ligne dans la collection Shapes
Code:

1 2 3 4 5 Dim sh As Shape For Each sh In ActiveSheet.Shapes Debug.Print sh.Name Next End Sub
10/12/2010, 19h06
emmanuel89500
Merci beaucoup, cela fonctionne parfaitement!

du code je n'ai gardé que :
Code:

1 2 3 4 5 Set maLigne = ActiveSheet.Shapes.AddLine(300, 50, 700, 500) With maLigne .Line.ForeColor.RGB = RGB(255, 0, 0) .Name = "Laligne" End With
J'avais bien eu l'idée d'utiliser la propriété .Name, mais j'avais mal définit la construction de ma ligne, et c'est grâce à l'instruction SET que le problème se résout!

@+ Em
10/12/2010, 19h22
mercatog

Attention quand même si tu as sur la feuille l'existence préalable d'une ligne portant le même nom LaLigne, tu auras du souci pour désigne laquelle.
J'ai fais un test croyant qu'un seul nom peut être attribué à un sahpe, mais apparemment, on peut insérer plusieurs shape portant le même nom.
En plus

Code:

Set maLigne = ActiveSheet.Shapes("LaLigne")

indique le première shape portant le nom LaLigne
10/12/2010, 23h03
emmanuel89500

Merci et je comprends le propos,
mais en ce qui concerne ce que je souhaite faire le problème de dualité de nom ne se posera pas, puisque justement le but est de "forcer" le nom des lignes crées pour pouvoir les gérer par la suite.

Le but du jeu est le suivant :

1) créer un triangle de dimensions donnés
2) Dans ce triangle créer un rectangle dont les sommets "touchent" chacun des côtés
3)déterminer la position optimale d'un sommet du rectangle afin que son aire soit maximale.

Le mot "jeu " est à prendre au sens propre, car je m'amuse énormément à programmer, même si le mot "défit" me vient aussi à l'esprit.

En fait je suis enseignant en maths, et je cherche des idées parce que j'ai crée un "club" Maths et programmation.

@+ EM
10/12/2010, 23h10
mercatog

Bonsoir
Justement j'avais dans la première proposition "ajouté" des lignes de code pour que dans n'importe quel cas, il y aura une unique ligne portant un nom donné. C'était une précaution à prendre au cas où.