Kleur autovorm wijzigen d.m.v. muisklik

[Boetsie]

Hallo allen,

Ik heb de volgende vraag; weet iemand van jullie hoe je het voor elkaar kunt krijgen dat als je een autovorm (bijv. een rechthoek) met een witte opvulling aanklikt, dat deze autovorm dan blauw wordt? Als je vervolgens er nog een keer op klikt wordt de de autovorm weer wit. Weer klikken wordt de vorm weer blauw, weer klikken wordt ie weer wit etc etc. een continue proces van klikken en kleurwisseling.

Iemand een goed idee, ik hou me aanbevolen!

 

[zapatr]

Rechtsklik op de rechthoek en wijs er deze macro aan toe:

Sub macro1()
With ActiveSheet.Shapes("Rectangle 1").Fill.ForeColor
'Deze code is geschreven door Zapatr
If .SchemeColor = 65 Then
.SchemeColor = 30
Else
.SchemeColor = 65
End If
End With
End Sub

 

[Niels28]

Iets te laat maar hierbij een voorbeeldje in excel 2007

Bekijk bijlage kleur rechthoek.xlsm

@Zapatr,
Jouw code had ik eerst ook geprobeerd maar in excel2007 werkt dit niet.
Op een of andere manier ziet excel het kleur nummer niet hetzelfde en blijft de rechthoek bij mij wit.
De kleur 65 wordt als 9 aangegeven bij heb ik kleur 7 gekozen en die wordt als 15 weergegeven

zo werkt jouw code wel.

Sub macro1()
With ActiveSheet.Shapes("Rechthoek 1").Fill.ForeColor
'Deze code is geschreven door Zapatr
If .SchemeColor = 9 Then
.SchemeColor = 30
Else
.SchemeColor = 65
End If
End With
End Sub

Niels

 

[Boetsie]

Hallo Niels28,

dat is super, hartelijk dank voor je snelle reactie.

Ik weet niet hoe je het gedaan hebt, maar ik ga eens proberen daar achter te komen.
Dank

 

[Boetsie]

Hallo zapatr,

ik heb je code geprobeerd, maar die is volgens mij niet volledig.
Bij een witte shape gebeurt niets en bij een blauwe shape wordt de shape half blauw half wit. Vervolgens gebeurt er niets meer.

Toch bedankt voor de moeite.

 

[zapatr]

Niels en Boetsie,
In Excel 2007 kan ik het niet beoordelen, maar in Excel 2002 waarin ik de code heb getest, werkt die wel.
Ik kan het bestandje wel posten, maar dat heeft niet veel zin denk ik, want dat verandert niets aan de code.

 

[Boetsie]

Hallo zapatr, dit is de code van Niels28

Public x As Integer

Sub Macro1()
If x = 2 Then
 x = 1
Else: x = 2
End If
Sheets(1).Shapes("rechthoek 1").Fill.ForeColor.SchemeColor = x
End Sub

In een 2007 omgeving!

 

[Niels28]

Boetsie,

Zie opmerking bij mijn post.
Die van Zapatr werkt wel met die aanpassing.
Bij mijn code is het probleem dat je deze de eerste keer nadat je hem opent 2x aan moet klikken.

Om te kijken hoe het gedaan is Alt-F11
deze macro hangt aan de rechthoek.

Niels

 

[Boetsie]

Hallo zapatr/Niels28

Als ik nog van jullie kennis gebruik mag maken. Is het dan ook mogelijk om binnen de kleur rotatie van deze autovorm een derde kleur toe te voegen. Zo ja hoe kan ik dan het beste de VBA code aanpassen?

 

[Niels28]

Andere code kijk ik zo ook even naar maar moet daar kleuren uitzoeken

Sub Macro1()
If x = 2 Then
 x = 1
ElseIf x = 1 Then x = 7
Else: x = 2
End If
Sheets(1).Shapes("rechthoek 1").Fill.ForeColor.SchemeColor = x
End Sub

niels

 

[Niels28]

en de andere code.

Sub macro1()
With ActiveSheet.Shapes("Rechthoek 1").Fill.ForeColor
'Deze code is geschreven door Zapatr en aangepast door Niels28

If .SchemeColor = 9 Then
.SchemeColor = 10
ElseIf .SchemeColor = 10 Then .SchemeColor = 7
Else
.SchemeColor = 9
End If
End With
End Sub

 

[Boetsie]

Bedankt voor de snelle reactie Niels28,

maar bij mij komt geen derde kleur naar voren.
Werkt de code wel bij jou met drie kleuren?

 

[Boetsie]

Bekijk bijlage Example_Shape color.xlsm

 

[Niels28]

Ja bij mij werkt het wel in beide versies.

zie bijlage.


Bekijk bijlage kleur rechthoek2.xlsm
Niels

 

[Niels28]

Je hebt mijn codes er ook niet achter staan.


Niels

 

[Boetsie]

super bedankt Niels28,

ja ik dacht wel dat ik iets verkeerd heb gedaan.
Ik ben nog een leek met VBA.

 

[Niels28]

Zet je de vraag dan op opgelost.

Niels

 

[zapatr]

Wat 'Schemecolor' betreft blijken Excel 2003 en 2007 niet compatibel te zijn, zo leert even zoeken op internet mij. Bij bepaalde kleurnummers is er geen probleem, bij bepaalde andere wel (wat Niels al opmerkte). Enfin, het probleem van de vragensteller is opgelost, dat is het belangrijkste.