Microsoft Office Suite
50
Example
This example checks the number of items in the combo box control named "Names" on the
command bar named "Custom." If there are more than three items in the list, the example clears the
list, adds a new first item to the list, and displays this new item as the default for the combo box
control.
set myBar to command bar "Custom"
set myControl to command bar control "Names" of myBar
set listItems to get count of combobox items myControl
if listitems > 3 then
clear combobox myControl
add item to combobox myControl combobox item "Third Item" entry index 1
set list index of myControl to 1
End If
Command: execute
Runs the procedure associated with a command bar control.
Syntax
execute command bar control Required. An expression that returns a command bar control,
command bar button, or command bar combobox object.
Remarks
This method runs the specified script or command if controls are currently enabled in the
application and if the enabled property of the specified object is True.
Applying this method to a command bar popup object generates a run-time error.
Example
This example checks the value of the combo box control on the custom command bar named "My
Custom Bar." If the index number of the command bar control is 1, the example runs the script
specified by the on action property of the command bar control.
set mycontrol to the first command bar combobox of command bar "My Custom Bar"
if entry index of myControl = 1 then
execute myControl
End If
Command: get combobox item
Returns the string at the given index of items within a combo box control.
Syntax
get combobox item command bar combobox Required. An expression that returns a command
bar combobox object.
entry index small integer Required. The position of the specified item in the list. If this
argument is omitted, the last item in the list is returned.