Office VBA教程:FindControl方法

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

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

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

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

MsoControlType 类型可为以下 MsoControlType 常量之一:
msoControlActiveX
msoControlCustom
msoControlButton
msoControlEdit
msoControlDropdown
msoControlComboBox
msoControlButtonDropdown
msoControlSplitDropdown
msoControlGenericDropdown
msoControlGraphicCombo
msoControlSplitButtonMRUPopup
msoControlSplitExpandingGrid
msoControlGraphicDropdown
msoControlPopup
msoControlGraphicPopup
msoControlButtonPopup
msoControlGauge
msoControlLabel
msoControlExpandingGrid
msoControlGrid
msoControlOCXDropDown
msoControlSplitButtonPopup
msoControlPane

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

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

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

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

说明

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

VBA示例

本示例可实现的功能为:在命令栏“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

上页:Office VBA教程:Execute方法 下页:Office VBA教程:FindControls方法

Office VBA教程:FindControl方法

Office VBA教程:FindControls方法 Office VBA教程:Help方法
Office VBA教程:Item方法 Office VBA教程:LoadFromFile方法
Office VBA教程:Move方法 Office VBA教程:NewSearch方法
Office VBA教程:Open方法 Office VBA教程:PasteFace方法
Office VBA教程:RefreshDocument方法 Office VBA教程:RefreshProject方法
Office VBA教程:RefreshScopes方法 Office VBA教程:ReleaseFocus方法
Office VBA教程:Remove方法 Office VBA教程:RemoveItem方法
Office VBA教程:Reset方法 Office VBA教程:ResetFileList方法
Office VBA教程:ResetTips方法 Office VBA教程:SaveCopyAs方法
Office VBA教程:SetAvoidRectangle方法 Office VBA教程:SetFocus方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号