In diesem Beispiel wird die Auflistung der Befehlsleisten schrittweise durchlaufen, um die Befehlsleiste "Forms" zu suchen. Wird die Befehlsleiste "Forms" gefunden, wird sie sichtbar gemacht, und ihr Andockstatus wird geschützt.
foundFlag = False For Each cmdbar In CommandBars If cmdbar.Name = "Forms" Then cmdbar.Protection = msoBarNoChangeDock cmdbar.Visible = True foundFlag = True End If Next If Not foundFlag Then MsgBox "'Forms'command bar is not in the collection." End If
In diesem Beispiel wird der Office-Assistent sichtbar gemacht und seine Animation festgelegt.
With Application.Assistant .Visible = True .Sounds = True .Animation = msoAnimationBeginSpeaking End With