Kleur autovorm wijzigen d.m.v. muisklik combineren

[Boetsie]

Hallo Allen,

ik kreeg een geweldig werkend scriptje aangeleverd om een autoshape in te kleuren middels een muisklik.

Sub B_Achttien()
With ActiveSheet.Shapes("Trapezium 18b").Fill.ForeColor
'Deze code is geschreven door Zapatr en aangepast door Niels28

If .SchemeColor = 9 Then
.SchemeColor = 30
ElseIf .SchemeColor = 30 Then .SchemeColor = 2
Else
.SchemeColor = 9
End If
End With
End Sub

maar kan ik ook meerdere autovormen onder 1 macro hangen?

M.a.w. als ik honderd autovormen heb in een spreadsheet, moet ik dan 100 keer het script aanmaken of kan ik per verschillende autovorm (Rechthoek, Trapezium, Cirkel) een script eraan hangen? De autovormen moeten dan wel individueel aan te klikken zijn, dus niet dat er dan 10 tegelijkertijd blauw worden!

 

[popipipo]

Waarom wil je dit nu via vba doen als het eigenlijk al in excel (vanaf 2007?) standaard zit?

 

[Niels28]

Bij deze.

Sub B_Achttien()

vorm = Application.Caller

With ActiveSheet.Shapes(vorm).Fill.ForeColor
If .SchemeColor = 9 Then
.SchemeColor = 30
ElseIf .SchemeColor = 30 Then .SchemeColor = 2
Else
.SchemeColor = 9
End If
End With
End Sub

Niels

 

[Boetsie]

Hallo Niels28,

ik heb het scriptje getest en GEWELDIG!.
Hartelijk dank!

En natuurlijk iedereen de beste wensen voor 2012!