[求助]判断已知名称的工具栏或菜单是否存在的VBA代码?

风之助

为避免出现重复的工具栏，需要用VBA判断已知名称（设为"自定义样式"）自定义工具栏是否存。请问这样的代码如何实现？

守柔

这样的情况，常规是使用预防性删除，如：

Private Sub Document_Open() Dim Half As Byte On Error Resume Next Dim NewButton As CommandBarButton Application.CommandBars("Text").Controls("Test").Delete '预防性删除 Half = Int(Application.CommandBars("Text").Controls.Count / 2) '中间位置 Set NewButton = Application.CommandBars("Text").Controls.Add(Type:=msoControlButton, Before:=Half) With NewButton .Caption = "选择性贴" '命令名称 .FaceId = 100 '命令的FaceId .Visible = True '可见 .OnAction = "选择性粘" '指定响应过程名 End With End Sub '---------------------- 当然，你可以使用FOR EACH 循环，但没有必要。