FindControl 方法

       

返回一个符合指定条件的 CommandBarControl 对象。

expression.FindControl(Type, Id, Tag, Visible, Recursive)

expression   必需。该表达式返回一个 CommandBars 对象。

Type   MsoControlType 类型,可选。要查找的控件类型。

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

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

Visible    Variant 类型,可选。如果该值为 True,那么只查找屏幕上显示的命令栏控件。默认值为 False。屏幕上可见的命令栏,其中包括执行 FindControl 方法时所打开的所有可见的工具栏和菜单。

Recursive    Boolean 类型,可选。如果该值为 True,那么将在命令栏及其全部弹出式子工具栏中查找。此参数仅应用于 CommandBar 对象。默认值为 False

说明

如果 CommandBars 集合中有两个或者更多的控件符合搜索条件,那么 FindControl 返回找到的第一个控件。如果没有控件符合搜索条件,那么 FindControl 返回 Nothing

示例

本示例可实现的功能为:在命令栏“Custom”中查找第一个控件。如果该控件是按钮,那么示例将用 FindControl 方法查找 Copy 按钮(位于“常用”工具栏上),然后复制 Copy 按钮的图符并粘贴到该控件上。

Set oldCtrl = CommandBars("Custom").Controls(1)
If oldCtrl.Type = 1 Then
    Set newCtrl = CommandBars.FindControl(Type:= _
        MsoControlButton, ID:= _
        CommandBars("Standard").Controls("Copy").ID)
    NewCtrl.CopyFace
    OldCtrl.PasteFace
End If