Método CommandBarControl.SetFocus (Office)

Mueve el foco del teclado al 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 sobre la cinta de Office Fluent.

Sintaxis

más sencilla.SetFocus

expresión Variable que representa un objeto CommandBarControl .

Comentarios

El foco sobre el control es imperceptible. Después de utilizar 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 Personalizada y se le agrega un control de cuadro combinado y un control de botón . 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

Vea 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.

  • Last updated on