目录

BuiltIn 属性

优质
小牛编辑
128浏览
2023-12-01

全部显示

如果指定的命令栏或命令栏控件是容器应用程序的内置命令栏或控件,则返回True。如果是自定义命令栏或控件或是已设置了OnAction 属性的内置控件,则返回FalseBoolean 类型,只读。

示例

本示例可实现的功能为:删除所有未显示于屏幕上的自定义命令栏。

foundFlag = False
deletedBars = 0
For Each bar In CommandBars
 If (bar.BuiltIn = False) And (bar.Visible = False) Then
 bar.Delete
 foundFlag = True
 deletedBars = deletedBars + 1
 End If
Next
If Not foundFlag Then
 MsgBox "No command bars have been deleted."
Else
 MsgBox deletedBars & " custom command bar(s) deleted."
End If