FindControls 方法

       

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

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

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

Type   MsoControlType 类型,可选。

Id   Variant 类型,可选。要查找控件的标识符。

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

Visible    Variant 类型,可选。如果该值为 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."