目录

FindControls 方法

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

返回符合指定条件的CommandBarControls 集合。

expression.FindControls(Type,Id,Tag,Visible)

expression 必需。该表达式返回一个CommandBars 集合。

TypeMsoControlType 类型,可选。

MsoControlType 类型可为以下 MsoControlType 常量之一:msoControlActiveXmsoControlCustommsoControlButtonmsoControlEditmsoControlDropdownmsoControlComboBoxmsoControlButtonDropdownmsoControlSplitDropdownmsoControlGenericDropdownmsoControlGraphicCombomsoControlSplitButtonMRUPopupmsoControlSplitExpandingGridmsoControlGraphicDropdownmsoControlPopupmsoControlGraphicPopupmsoControlButtonPopupmsoControlGaugemsoControlLabelmsoControlExpandingGridmsoControlGridmsoControlOCXDropDownmsoControlSplitButtonPopupmsoControlPaneIdVariant 类型,可选。要查找控件的标识符。

TagVariant 类型,可选。要查找控件的标记值。

VisibleVariant 类型,可选。如果该值为True,那么只查找屏幕上可见的命令栏控件。默认值为False

说明

如果没有符合指定条件的控件,FindControls 方法返回Nothing

示例

本示例用FindControls 方法返回CommandBars 集合中所有标识符为 18 的成员,并在消息框中显示符合指定条件的控件的个数。

Dim myControls As CommandBarControls
Set myControls = CommandBars.FindControls(Type:=msoControlButton, ID:=18)
MsgBox "There are " & myControls.Count & _
 " controls that meet the search criteria."