Método FindControls
Devuelve la colección CommandBarControls que cumple los criterios especificados.
expresión.FindControls(Type, Id, Tag, Visible)
expresión Requerida. Expresión que devuelve una colección CommandBarControls.
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 |
Tag Variant opcional. El valor del rótulo de 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.
Comentarios
Si no se encuentra ningún control que cumpla los criterios, el método FindControls devuelve Nothing.
Ejemplo
Este ejemplo utiliza el método FindControls para devolver todos los miembros de la colección CommandBars que tengan un Id. igual a 18 y muestra en un cuadro de mensaje el número de controles que cumplen los criterios de búsqueda.
Dim myControls As CommandBarControls
Set myControls = CommandBars.FindControls(Type:=msoControlButton, ID:=18)
MsgBox "There are " & myControls.Count & _
" controls that meet the search criteria."