Propiedad CommandBars.ActionControl (Office)
Obtiene el objeto CommandBarControl cuya propiedad OnAction está establecida para el procedimiento en ejecución. Solo lectura.
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. ActionControl
Expresión Variable que representa un objeto CommandBars .
Ejemplo:
En este ejemplo se crea una barra de comandos denominada Custom, se le agregan tres botones y, a continuación, se usan la propiedad ActionControl y la propiedad Tag para determinar en qué botón de la barra de comandos se hizo clic por última vez.
Set myBar = CommandBars _
.Add(Name:="Custom", Position:=msoBarTop, _
Temporary:=True)
Set buttonOne = myBar.Controls.Add(Type:=msoControlButton)
With buttonOne
.FaceId = 133
.Tag = "RightArrow"
.OnAction = "whichButton"
End With
Set buttonTwo = myBar.Controls.Add(Type:=msoControlButton)
With buttonTwo
.FaceId = 134
.Tag = "UpArrow"
.OnAction = "whichButton"
End With
Set buttonThree = myBar.Controls.Add(Type:=msoControlButton)
With buttonThree
.FaceId = 135
.Tag = "DownArrow"
.OnAction = "whichButton"
End With
myBar.Visible = True
La subrutina siguiente responde al método OnAction y determina el último botón de la barra de comandos en el que se hizo clic.
Sub whichButton()
Select Case CommandBars.ActionControl.Tag
Case "RightArrow"
MsgBox ("Right Arrow button clicked.")
Case "UpArrow"
MsgBox ("Up Arrow button clicked.")
Case "DownArrow"
MsgBox ("Down Arrow button clicked.")
End Select
End Sub
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.