对 Microsoft Office 命令栏进行更多编程(2)

可以使用如下所示的代码测试该函数：
Public Sub TestAddComboBoxToCommandBar()
    ' 用途：测试 AddComboBoxToCommandBar 函数。
    Dim strChoices(4) As String
    
    strChoices(1) = "Vanilla"
    strChoices(2) = "Chocolate"
    strChoices(3) = "Strawberry"
    strChoices(4) = "Other"
    
    If AddComboBoxToCommandBar("Tools", "Favorite Ice Cream", _
        strChoices) = True Then
        
        MsgBox "组合框已成功添加。"
        
    Else
    
        MsgBox "未能添加组合框。"
        
    End If
    
End Sub
禁用和隐藏命令栏与命令栏控件
开发 Office 解决方案时，您可能需要防止用户在与该解决方案关联的某些命令栏和命令栏控件上单击。例如，您可能需要防止用户单击“窗体”工具栏上的任何控件，以免修改您在 Microsoft Word 中创建的自定义窗体。您也可能需要为给定的解决方案禁用“工具”菜单上的“宏”命令。
将命令栏或命令栏控件的 Enabled 属性设置为 False 可禁用命令栏或命令栏控件；同样，将命令栏或命令栏控件的 Enabled 属性设置为 True 可启用命令栏或命令栏控件。