VBA中textbox添加右鍵菜單功能！

給妳看壹下?藍色幻想的壹個程序事例?，代碼放窗體的加載程序裏面

Sub?添加快捷菜單()

Dim?mypup?As?CommandBar

Dim?com?As?CommandBarButton

Dim?x

刪除命令

Set?mypup?=?Application.CommandBars.Add(Name:="ABC",?Position:=msoBarPopup)

For?x?=?1?To?4

Set?com?=?mypup.Controls.Add

com.Caption?=?Choose(x,?"蘭色幻想",?"小妖",?"小佩",?"展翅")

'這4個是加的按鈕的名字，?可以改成妳自己的，?比如復制粘貼等

com.FaceId?=?17?+?x

com.OnAction?=?"A"

'這句是指定的宏的名字，?可以改成妳自己的宏，?比如復制?，粘貼功能宏

Next?x

End?Sub

Sub?刪除命令()

Application.CommandBars("ABC").Delete

End?Sub