In diesem Beispiel wird eine neue Befehlsleiste mit dem Namen "Custom" erstellt. Dieser Befehlsleiste wird dann ein Kombinationsfeld mit vier Listenelementen hinzugefügt. Mit Hilfe der Text-Eigenschaft wird anschließend "Item 3" als Standardlistenelement festgelegt.
Set myBar = CommandBars _
.Add(Name:="Custom", Position:=msoBarTop, _
Temporary:=True)
With myBar
.Controls.Add Type:=msoControlComboBox, ID:=1
.Visible = True
End With
Set testComboBox = CommandBars("Custom").Controls(1)
With testComboBox
.AddItem "Item 1", 1
.AddItem "Item 2", 2
.AddItem "Item 3", 3
.AddItem "Item 4", 4
.Text = "Item 3"
End With
In diesem Beispiel wird eine neue Sprechblase im Office-Assistenten mit einer Überschrift, Text und drei Regionsoptionen erstellt. Mit der Text-Eigenschaft wird für jedes Kontrollkästchen eine Beschriftung erstellt.
With Assistant.NewBalloon .Heading = "Regional Sales Data" .Text = "Select a region" For i = 1 To 3 .CheckBoxes(i).Text = "Region " & i Next .Show End With
In diesem Beispiel wird eine Sprechblase im Office-Assistenten mit einer Überschrift, Text und drei Regionsoptionen erstellt. Mit der Text-Eigenschaft werden Anweisungen für den Benutzer erstellt, die sich auf den Inhalt der Sprechblase beziehen.
With Assistant.NewBalloon .Heading = "Regional Sales Data" .Text = "Select a region" For i = 1 To 3 .CheckBoxes(i).Text = "Region " & i Next .Show End With
Im folgenden Beispiel wird eine neue Sprechblase im Office-Assistenten erstellt, die eine unterstrichene Überschrift, roten Text sowie blauen, unterstrichenen Text enthält.
With Assistant.NewBalloon
.Heading = "Underlined {ul 1}Heading{ul 0}"
.Text = "Some {cf 249}Red{cf 0} text and some " & _
"underlined {cf 252}{ul 1}Blue{ul 0}{cf 0} text."
.Show
End With
In diesem Beispiel wird eine neue Sprechblase im Office-Assistenten erstellt, die eine WMF-Datei enthält.
With Assistant.NewBalloon
.Heading = "Underlined {ul 1}Heading{ul 0}"
.Text ="{WMF ""C:\Favorites\MyPicture.WMF""}"
.Show
End With