ToggleButton
26.02.2005 22:17:50
Daniel
Ich möchte mit Hilfe eines ToggleButtons die Schriftart formatieren (z.B. Fett) und zwar so, wie dies in der Symbolleiste von Excel auch möglich ist: Wenn die Schriftart der aktuellen Zelle Fett formatiert ist, soll der ToggleButton "eingeschaltet" sein, ansonsten ausgeschaltet. Mit Hilfe der WorksheetSelection_Change Funktion frage ich die Formatierung der aktuellen Zelle ab: if ActiveCell.Font.Bold = True Then ToggleButton.Value = True. Mit diesem Befehl wird aber gleichzeitig das Toggle_Button1_Change()-Ereignis aktiviert, das heisst das Programm verzweigt, sobald der Cursor z.B. mittels Pfeiltasten auf eine Zelle mit fett formatiertem Text bewegt wird, in diese Sub Prozedur. Wenn ich aber an der Formatierung nichts ändern will, darf der Befehl ToggleButton.Value = True auch nichts weiter bewirken, da ich die Formatierung ja ausschliesslich mit einem Klick auf den Button ändern möchte, also z.B. von Fett wieder auf Normal. Es gelingt mir aber nicht, im Toggle_Button1_Change()-Ereignis die verschiedenen Möglichkeiten zu unterscheiden. Ich müsste die Möglichkeit haben, innerhalb der WorksheetSelection_Change Funktion den ToggleButton als "eingeschaltet" zu visualisieren, ohne dabei ein Klick-Ereignis auszulösen. Bisher suche ich allerdings ohne Erfolg. Kann mir da jemand helfen? Sorry, wenn meine Frage etwas lang wurde.
Besten Dank für eine Antwort.
Daniel