vinkje adhv plaatje

[popipipo]

Ik heb een plaatje van een skelet.
Daarin heb ik diverse blauwe punten geplaatst
Als ik een van deze blauwe punten aan klik wil ik dat voor de juiste de juiste benaming een vinkje komt te staan.
Klik ik een anderen aan dan moet de voorgaande vinkje(s) wel blijven staan.

Omdat het bestand te groot werd (ook na gezipt) heb ik maar een vierkantje getekend.
Het idee blijft natuurlijk het zelfde.

 

[Wigi]

Ik heb het in bijlage uitgewerkt. Het enige wat je moet doen is de punten exact dezelfde naam geven als de tekst die je zoekt in de andere kolom.

Kan dit om een of andere reden niet, dan moet je in de code (of in een Excel kolom) de mapping leggen tussen namen van punten en namen in de kolom rechts.

Wigi

 

[snb]

Of zet in Module Blad1 de volgende macro's
Stel het lettterype van kolom L in op Wingdings

Sub Oval3_BijKlikken()
    [L4].Value = iif([L4].value="",Chr(252),"")
End Sub

Sub Oval6_BijKlikken()
    [L5].Value = iif([L5].value="",Chr(252),"")
End Sub

Sub Oval4_BijKlikken()
    [L6].Value = iif([L6].value="",Chr(252),"")
End Sub

Sub Oval5_BijKlikken()
    [L7].Value = iif([L7].value="",Chr(252),"")
End Sub

 

[popipipo]

Hallo Wigi
Jou oplossing is kort en krachtig en OK.
Maar, zoals bijna bij elke oplossing, ik wil toch net iets meer.
Als ik nu een tweede maal op de punt druk moet het vinkje (Chr(252) lettertype wingdings) weer verdwijnen.
Heb je daar ook nog een oplossing voor?

 

[snb]

Vorige suggestie aangepast.

In Wigi's oplosssing:

Sub zetindicator()
  With Range("benamingen").Find(Application.Caller, , xlValues, xlWhole).Offset(, -1)
    .Value = IIf(.Value = "", Chr(252), "")
  End With
End Sub

 

[popipipo]

Thanks