This example creates a new command bar named "Custom" and adds to it a combo box that contains four list items. The example then uses the Text property to set Item 3 as the default list item.
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
This example creates a new Office Assistant balloon with a heading, text, and three region choices. The example uses the Text property to provide a label for each check box.
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
This example creates a new Office Assistant balloon with a heading, text, and three region choices. The example uses the Text property to provide balloon-related instructions to the user.
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
This example creates a new Office Assistant balloon that contains underlined heading text, red text, and blue text that is also underlined.
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
This example creates a new Office Assistant balloon that contains a Windows metafile.
With Assistant.NewBalloon
.Heading = "Underlined {ul 1}Heading{ul 0}"
.Text ="{WMF ""C:\Favorites\MyPicture.WMF""}"
.Show
End With