Pijlen verbergen en zichtbaar maken via keuzeknop

[ddr23]

Ik had graag de rode pijlen allemaal verborgen als de keuzeknop uitgevinkt is.
Andersom ook natuurlijk. Zichtbaar maken als keuzeknop aangevinkt.
Ik heb alle rode pijlen de benaming "test" gegeven.

Hetzelfde voor de groene pijlen, met de benaming "proef"

 

[VenA]

Geen idee wat je ermee wil. Met de juiste objecten zou zoiets kunnen werken.

Private Sub CheckBox1_Click()
  For Each sh In Shapes
   If sh.Name = "test" Then sh.Visible = CheckBox1
  Next sh
End Sub

Private Sub CheckBox2_Click()
  For Each sh In Shapes
   If sh.Name = "proef" Then sh.Visible = CheckBox2
  Next sh
End Sub

 

[emields]

of zo?

 

[ddr23]

de bedoeling hiervan is om op een groot energieschema, de verschillende leidingen ,(gas,water,olie) te voorzien van een gekleurde lijn.
Gas = geel
Water = blauw
Olie = groen
Men zou dan de keuze moeten hebben om bv. alle gele lijnen te verbergen en terug zichtbaar te maken.
Ik dacht dat het dan het handigste zou zijn om alle gele lijnen dezelfde benaming te geven.

 

[emields]

Doe het dan zo.

en luister naar de raadgevingen

 

[VenA]

Gas-, water- en olieleidingen in zo'n simpele opzet? Ik mag hopen dat je er hier in buurt niets mee gaat doen.