Método SetFocus
Mueve el foco del teclado al control de barra de comandos especificado para poder recibir la entrada de teclado. El tipo de entrada de teclado que se puede dirigir al control depende del tipo de control de que se trate.
Comentarios
El foco sobre el control es imperceptible. Después de utilizar este método, notará un realce tridimensional en ese 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.
expresión.SetFocus
expresión Requerida. Expresión que devuelve un objeto CommandBarControl, CommandBarButton, CommandBarPopup o CommandBarComboBox.
Ejemplo
Este ejemplo crea una barra de comandos denominada "Custom" y agrega los controles ComboBox y Button a esa barra. A continuación, el ejemplo utiliza 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