Es gibt bestimmte Symbolleistenschaltflächen, die sich beim Drücken ändern, um ein anderes Erscheinungsbild zu erhalten. Wenn Sie beispielsweise auf das Fett-Werkzeug drücken, sieht das Werkzeug anders aus, als wäre es gedrückt. Dies erfolgt durch Word mithilfe von zwei verschiedenen Schaltflächengrafiken. Das erste ist das „nicht ausgewählte“ Erscheinungsbild, und das andere wird angezeigt, wenn auf die Schaltfläche geklickt wurde.

Sie können einen ähnlichen Trick mit Ihren benutzerdefinierten Symbolleistenschaltflächen verwenden. Nehmen wir als Beispiel an, wie dies funktionieren könnte, dass Sie eine Symbolleiste haben, die Sie häufig verwenden. Sie haben diese Symbolleiste „Sampler“ genannt. Sie möchten, dass diese Symbolleiste angezeigt wird, wenn Sie auf eine Schaltfläche in einer anderen Symbolleiste klicken.

Zuerst müssen Sie die neue Symbolleiste erstellen, die die einzelne Schaltfläche enthält, mit der die Symbolleiste „Sampler“ umgeschaltet wird. In diesem Beispiel heißt die neue Symbolleiste „Switcher“. Das folgende VBA-Makro kann einer Schaltfläche in der Symbolleiste „Switcher“ zugewiesen werden:

Sub SwitchTools()

' First check if the toolbar is shown or hidden     If CommandBars("sampler").Visible Then         ' Hide the toolbar and change the button image to "normal"

CommandBars("sampler").Visible = False         CommandBars("switcher").Controls(1).State. = msoButtonUp     Else         ' Show the button and change the button image to "selected"

CommandBars("sampler").Visible = True         CommandBars("switcher").Controls(1).State = msoButtonDown     End If End Sub

Dieses Makro schaltet den Status der Schaltfläche um (mithilfe von msoButtonUp und msoButtonDown), um das gewünschte Erscheinungsbild zu erzielen.

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der WordTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

WordTips ist Ihre Quelle für kostengünstige Microsoft Word-Schulungen.

(Microsoft Word ist die beliebteste Textverarbeitungssoftware der Welt.) Dieser Tipp (1122) gilt für Microsoft Word 97, 2000, 2002 und 2003.