21、Excel 工具栏与菜单的 VBA 定制指南

Excel 工具栏与菜单的 VBA 定制指南

1. 工具栏的 VBA 操作

1.1 宏录制器的使用

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

1.2 VBA 操作示例

1.2.1 重置所有内置工具栏

以下代码可将所有内置工具栏重置为初始状态：

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 时的状态。

1.2.2 工作表激活时显示工具栏

假设存在一个名为 Budget 的工作簿，其中包含预算信息，同时有一个名为 Budget Tools 的自定义工具栏用于该工作簿。当在 Budget 工作表上工作时，该工具栏应可见；否则应隐藏。以下代码可实现此功能：