¡Agregue la función del menú contextual al cuadro de texto en VBA!

Sub?AddShortcutMenu() Dim?mypup?As?CommandBar Dim?com?As?CommandBarButton Dim?x DeleteCommand Set?mypup?=?Application.CommandBars.Add(Name:="ABC",? Posición:Posición:="ABC", "Posición:Posición:="ABC", "Posición:Posición:="ABC", "Posición:Posición:="ABC", "Posición:Posición:="ABC", " Posición:Posición:="ABC").Application.CommandBars.Add(Name:="ABC",?Position:=msoBarPopup)

Para?x?=?1?A?4

Set?com?=?mypup.Controls.Add com.Caption?=?Choose(x,?" Orchid Fantasy",? "Demon",? "Pepe",? "Spread Wings")'Este 4 El primero es el nombre del botón agregado, que se puede cambiar a su propio nombre, como copiar y pegar, etc. com.FaceId?=?17?+?x com.OnAction?=?A" 'Esta línea es el nombre de la macro especificada Cambie a sus propias macros, como copiar, pegar, etc. Por ejemplo, ¿copiar? Pegar macro de función

Next?x

End?Sub

Sub?DeleteCommand() Application.CommandBars("ABC").Delete

¿Fin?