21、Excel 工具栏与菜单的定制与操作

Excel 工具栏与菜单的定制与操作

1. 工具栏操作

在处理 Excel 工具栏时，开启宏录制器能查看 VBA 代码的执行情况。除了编辑按钮图像外，定制工具栏的操作步骤都会生成 VBA 代码，通过查看这些代码，能了解 Excel 对工具栏对象模型的组织方式，该模型相对简单。

以下是一些使用 VBA 操作 Excel 工具栏的示例：
- 重置所有内置工具栏 ：

Sub ResetAll()
    Dim cbar As CommandBar
    For Each cbar In Application.CommandBars
        If cbar.Type = msoBarTypeNormal Then
            cbar.Reset
        End If
    Next cbar
End Sub

使用 Reset 方法对自定义工具栏无效且不会报错。执行此例程会清除所有内置工具栏的自定义设置，使其恢复到首次安装 Excel 时的状态。

• 工作表激活时显示工具栏 ：
  假设存在一个名为“Budget”的工作簿，其中包含预算信息，同时有一个名为“Budget Tools”的自定义工具栏用于该工作簿。当在“Budget”工作表上工作时，该工具栏应可见；否则应隐藏。

Private Sub Workbook_Win