J
Jenn
Guest
Bonjour à tous
J'ai un petit problème avec mon code ci-dessous. Je souhaite le modifier afin que lorsque je click sur une zone de texte (dans mon code je click sur le CommandButton1), tous les connecteurs liés à la zone de texte en question(qui sont initialement transparents) apparaissent.
Il manque à mon code une itéraction sur les zones de textes mais je n'ai pas encore trouvé
.
Merci de m'aider
et merci d'être indulgent je suis débutante...
Private Sub CommandButton1_Click()
Dim x As Worksheet
Set x = ActiveWorkbook.ActiveSheet
Dim y As Shapes
Set y = x.Shapes 'tableau de shape
u = y.Count ' nbr de shape
Dim z As Shape
For i = 1 To u
Set z = y(i) ' z est le i ieme shape ....
ActiveSheet.Shapes('AutoShape 5').Select
'(c'est ici que je souhaite modifier :
je souhaite selectionner tous les connecteurs liés à une zone de texte x au lieu de spécifier que je selectionne le connecteur 'AutoShape 5')
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Next
Dim a As Shape
Set a = ActiveSheet.Shapes('Text Box 24')
Call CommandButton2_Click
End Sub
J'ai un petit problème avec mon code ci-dessous. Je souhaite le modifier afin que lorsque je click sur une zone de texte (dans mon code je click sur le CommandButton1), tous les connecteurs liés à la zone de texte en question(qui sont initialement transparents) apparaissent.
Il manque à mon code une itéraction sur les zones de textes mais je n'ai pas encore trouvé
.Merci de m'aider
et merci d'être indulgent je suis débutante...
Private Sub CommandButton1_Click()
Dim x As Worksheet
Set x = ActiveWorkbook.ActiveSheet
Dim y As Shapes
Set y = x.Shapes 'tableau de shape
u = y.Count ' nbr de shape
Dim z As Shape
For i = 1 To u
Set z = y(i) ' z est le i ieme shape ....
ActiveSheet.Shapes('AutoShape 5').Select
'(c'est ici que je souhaite modifier :
je souhaite selectionner tous les connecteurs liés à une zone de texte x au lieu de spécifier que je selectionne le connecteur 'AutoShape 5')
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Next
Dim a As Shape
Set a = ActiveSheet.Shapes('Text Box 24')
Call CommandButton2_Click
End Sub
