Método FindControl
Devuelve un objeto CommandBarControl que cumple los criterios especificados.
expresión.FindControl(Type, Id, Tag, Visible, Recursive)
expresión Requerida. Expresión que devuelve un objeto CommandBars.
Type MsoControlType opcional. Tipo de control.
| MsoControlType puede ser una de estas constantes de 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 opcional. Identificador del control que se va a buscar.
Tag Variant opcional. El valor de rótulo del control que se va a buscar.
Visible Variant opcional. True para incluir sólo controles de barra de comandos visibles en la búsqueda. El valor predeterminado es False. Las barras de comandos visibles incluyen todas las barras de herramientas visibles y cualquier menú que se abra a la vez que se ejecuta el método FindControl.
Recursive Boolean opcional. True para incluir en la búsqueda la barra de comandos y todas las subbarras de herramientas emergentes. Este argumento sólo se aplica al objeto CommandBar. El valor predeterminado es False.
Comentarios
Si la colección CommandBars contiene dos o más controles que cumplen los criterios de búsqueda, FindControl devuelve el primer control encontrado. Si no se encuentra ningún control que cumpla los criterios, FindControl devuelve Nothing.
Ejemplo
Este ejemplo encuentra el primer control de la barra de comandos denominada "Custom". Si el control es un botón, el ejemplo utiliza el método FindControl para buscar el botón Copy (en la barra de herramientas Standard) y, a continuación, copiar la imagen del botón Copy y pegarla en el control.
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