Buttuns in Excel

[Dehaan10]

Allen,

Ik zou graag in Excel een cirkel in willen voegen die bestaat uit vier parten.
Het is de bedoeling dat als ik afzonderlijk op 1 van de parten druk het partje verkleurd.

Wie kan mij helpen?

Groet,

 

[wampier]

4 kwarten en aan elk een macro hangen? waar loop je vast ?

 

[Dehaan10]

Ik weet niet hoe ik een macro hang aan een bestaande figuur en hem dan de opdracht moet geven om om te kleuren
Weinig ervaring met macro's..,,

 

[edmoor]

Kijk eens naar dit voorbeeldje:
Bekijk bijlage KleurVoorbeeldShape.xlsm

 

[snb]

of:

Sub Cirkel3_Klikken()
   sn = Array(vbRed, vbYellow, vbGreen, vbBlue)
   ActiveSheet.Shapes("Cirkel 3").Fill.ForeColor.RGB = sn(Application.Match(ActiveSheet.Shapes("Cirkel 3").Fill.ForeColor.RGB, sn, 0) Mod 4)
End Sub

 

[Dehaan10]

Bekijk bijlage Probeersel.xlsmBekijk bijlage Probeersel.xlsm

Ik heb het geprobeerd, maar krijg het niet voor melkaar om de vier afzonderlijke parten een macro toe te wijzen.
Wie kan mij helpen?

 

[edmoor]

Ik heb je figuur wat aangepast. Als je nu met rechts op 1 van de kwarten klikt krijg je de keuze om een macro toe te wijzen:
Bekijk bijlage Kopie van Probeersel.xlsm

 

[Dehaan10]

Bedankt Edmoor, ik heb geprobeerd hem dezelfde comand te geven als cirkel 3, hij wordt alleen zwart.. Bekijk bijlage Kopie van Probeersel 2.xlsm

 

[edmoor]

Dat komt omdat hij nu zwart (vbBlack) is en die kleur komt in de kleur array van de Sub Cirkel7_Klikken() niet voor. Dus veranderd er niks.