TextBox dentro de CommandBars

En español

Saludos



Francisco

Operador de Sistemas



Mostrar todo

Objeto CommandBarComboBox
Vea también Propiedades Métodos Eventos Específicos
CommandBars (CommandBar)
CommandBarControls (CommandBarControl)
CommandBarButton
CommandBarComboBox
CommandBarPopup

Representa un control de cuadro combinado de una barra de comandos.

Uso del objeto CommandBarComboBox
Utilice Controls(index), donde index es el número de índice de un control,
para devolver un objeto CommandBarComboBox. La propiedad Type del control
debe ser msoControlEdit, msoControlDropdown, msoControlComboBox,
msoControlButtonDropdown, msoControlSplitDropdown, msoControlOCXDropdown,
msoControlGraphicCombo o msoControlGraphicDropdown.

El siguiente ejemplo agrega dos elementos al segundo control de la barra de
comandos denominada "Custom" y, a continuación, ajusta el tamaño del
control.

Set combo = CommandBars("Custom").Controls(2)
With combo
.AddItem "First Item", 1
.AddItem "Second Item", 2
.DropDownLines = 3
.DropDownWidth = 75
.ListIndex = 0
End WithTambién puede utilizar el método FindControl para devolver un objeto
CommandBarComboBox. El siguiente ejemplo busca todas las barras de comandos
de un objeto CommandBarComboBox visible cuyo rótulo sea "sheet assignments".

Set myControl = CommandBars.FindControl _
(Type:=msoControlComboBox, Tag:="sheet assignments", Visible:=True)"KL"
escribió en el mensaje
news:

Hola de nuevo,

Esto lo he encontrado en la ayuda de Excel VBA (en mi caso en ingles).

Saludos,
KL

CommandBarComboBox Object







Represents a combo box control on a command bar.

Using the CommandBarComboBox Object

Use Controls(index), where index is the index number of the control, to
return a CommandBarComboBox object. (The Type property of the control must
be msoControlEdit, msoControlDropdown, msoControlComboBox,
msoControlButtonDropdown, msoControlSplitDropdown, msoControlOCXDropdown,
msoControlGraphicCombo, or msoControlGraphicDropdown.)

The following example adds two items to the second control on the command
bar named "Custom," and then it adjusts the size of the control.

Set combo = CommandBars("Custom").Controls(2)
With combo
.AddItem "First Item", 1
.AddItem "Second Item", 2
.DropDownLines = 3
.DropDownWidth = 75
.ListIndex = 0
End WithYou can also use the FindControl method to return a
CommandBarComboBox object. The following example searches all command bars
for a visible CommandBarComboBox object whose tag is "sheet assignments."

Set myControl = CommandBars.FindControl _
(Type:=msoControlComboBox, Tag:="sheet assignments", Visible:=True)

begin 666 expandtri.gif
M1TE&.#EA"@`'`*($````_[VZ\HN+_________P```````````"'Y! $```0`

+ `````*``<```,/2+K<#3 "!D08\T&G,N<)`#L`

`
end

begin 666 parchild.gif
M1TE&.#EA$0`9`(#_`/___P```"'Y! $`````+ `````1`!D`0 (CA&^!RZ -
@HYSHT70SLY=3/X':V(UB=$)ILVZF&<1R3-9V5@``.P``
`
end

begin 666 space.gif
M1TE&.#EA$0`9`(#_`/___P```"'Y! $`````+ `````1`!D`0 (2A(^IR^T/
/HYRTVHNSWKS[#UX%`#L`
`
end

begin 666 parmult.gif
M1TE&.#EA$0`9`(#_`/___P```"'Y! $`````+ `````1`!D`0 (HA&^!RZ -
E'V1RHFI37CAW^TUAM%WE,38I=6KMRK6.#%_!C=_D2_=-`0`[````
`
end