Sonderzeichen per Makro einfügen

[toni007]

Hallo zusammen,

ich möchte per Makro einem Steuerelement ein Sonderzeichen als Title zuweisen. Nach jedem Klick soll sich das Sonderzeichen ändern (Toogle).
Bei den Sonderzeichen handelt es sich um 'BALLOT BOX' und 'BALLOT BOX WITH CHECK' (Unicode U+2610 (9744) bzw. U+2611 (9745)).
in etwa so:

Code: Alles auswählen

.getControl("cmdB").Model.Label = Unicode U+2610

Geht das per Makro oder habt ihr eine andere Idee?

Gruß

Thomas

[toni007]

Hat sich erledigt,
ich kann die Zeichen im Code direkt als String zuweisen.

[F3K Total]

So?

Code: Alles auswählen

.getControl("cmdB").Model.Label = chr(9744)
.getControl("cmdB").Model.Label = chr(9745)

Gruß R