Leer en inglés

Compartir a través de


Método CommandBarControl.SetFocus (Office)

Mueve el foco del teclado al control CommandBarControl especificado. Si el control está deshabilitado o no está visible, este método dará error.

Nota

El uso de CommandBars en algunas aplicaciones de Microsoft Office sustituido por el nuevo componente cinta de la interfaz de usuario de Microsoft Office Fluent. Para obtener más información, vea Información general de la cinta de opciones de Office Fluent.

Sintaxis

expresión. Setfocus

Expresión Variable que representa un objeto CommandBarControl .

Comentarios

El foco sobre el control es imperceptible. Después de usar este método, observará un resaltado tridimensional en el control. Para desplazarse por las barras de herramientas, presione las teclas de dirección, de la misma forma que si hubiera tenido acceso al control presionando sólo los controles del teclado.

Ejemplo:

En este ejemplo se crea una barra de comandos denominada Custom y se le agrega un control ComboBox y un control Button . En el ejemplo, a continuación, usa el método SetFocus para establecer el foco en el control ComboBox.

Set focusBar = CommandBars.Add(Name:="Custom") 
With CommandBars("Custom") 
    .Visible = True  
    .Position = msoBarTop 
End With 
 
Set testComboBox = CommandBars("Custom").Controls _ 
    .Add(Type:=msoControlComboBox, ID:=1) 
With testComboBox 
    .AddItem "First Item", 1 
    .AddItem "Second Item", 2 
End With 
Set testButton = CommandBars("Custom").Controls _ 
    .Add(Type:=msoControlButton) 
testButton.FaceId = 17 
' Set the focus to the combo box. 
testComboBox.SetFocus

Consulte también

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.