word vba添加右键菜单及4个按钮，右键菜单置顶显示，按钮调用窗体

以下是添加右键菜单及四个按钮的VBA代码：

Option Explicit

'声明常量
Const MENU_NAME As String = "MyMenu"
Const BUTTON1_NAME As String = "Button1"
Const BUTTON2_NAME As String = "Button2"
Const BUTTON3_NAME As String = "Button3"
Const BUTTON4_NAME As String = "Button4"

'添加右键菜单
Sub AddContextMenu()
    Dim cBar As CommandBar
    Dim cMenu As CommandBarPopup
    
    '删除已有的菜单和按钮
    Call RemoveContextMenu
    
    '获取“编辑”菜单栏并添加一个弹出菜单
    Set cBar = Application.CommandBars("Cell")
    Set cMenu = cBar.Controls.Add(Type:=msoControlPopup)
    cMenu.Caption = MENU_NAME
    
    '添加按钮到弹出菜单
    Call AddButton(cMenu, BUTTON1_NAME, "按钮1", "ShowForm1")
    Call AddButton(cMenu, BUTTON2_NAME, "按钮2", "ShowForm2")
    Call AddButton(cMenu, BUTTON3_NAME, "按钮3", "ShowForm3")
    Call AddButton(cMenu, BUTTON4_NAME, "按钮4", "ShowForm4")
    
    '设置菜单为置顶显示
    cMenu.Protection = msoBarTop
    
End Sub

'删除右键菜单和按钮
Sub RemoveContextMenu()
    Dim cBar As CommandBar
    Dim cMenu As CommandBarPopup
    
    '获取菜单栏和菜单
    On Error Resume Next
    Set cBar = Application.CommandBars("Cell")
    Set cMenu = cBar.FindControl(Type:=msoControlPopup, ID:=10)
    On Error GoTo 0
    
    '删除菜单和按钮
    If Not cMenu Is Nothing Then
        Call RemoveButton(cMenu, BUTTON1_NAME)
        Call RemoveButton(cMenu, BUTTON2_NAME)
        Call RemoveButton(cMenu, BUTTON3_NAME)
        Call RemoveButton(cMenu, BUTTON4_NAME)
        cMenu.Delete
    End If
    
End Sub

'添加按钮到菜单
Sub AddButton(cMenu As CommandBarPopup, sButtonName As String, sCaption As String, sMacroName As String)
    Dim cButton As CommandBarButton
    
    '添加按钮到菜单
    Set cButton = cMenu.Controls.Add(Type:=msoControlButton)
    cButton.Caption = sCaption
    cButton.Tag = sMacroName
    cButton.OnAction = sMacroName
    cButton.BeginGroup = False
    cButton.FaceId = 59
    cButton.Style = msoButtonIconAndCaption
    
    '设置按钮名称
    cButton.Name = sButtonName
    
End Sub

'删除菜单中的按钮
Sub RemoveButton(cMenu As CommandBarPopup, sButtonName As String)
    Dim cButton As CommandBarButton
    
    '查找并删除按钮
    On Error Resume Next
    Set cButton = cMenu.FindControl(Type:=msoControlButton, ID:=sButtonName)
    On Error GoTo 0
    
    If Not cButton Is Nothing Then
        cButton.Delete
    End If
    
End Sub

'显示窗体1
Sub ShowForm1()
    UserForm1.Show
End Sub

'显示窗体2
Sub ShowForm2()
    UserForm2.Show
End Sub

'显示窗体3
Sub ShowForm3()
    UserForm3.Show
End Sub

'显示窗体4
Sub ShowForm4()
    UserForm4.Show
End Sub

在VBA中添加以上代码后，你需要在Excel中创建四个用户窗体(UserForm)，分别命名为UserForm1、UserForm2、UserForm3和UserForm4，然后在每个用户窗体中添加需要的控件和功能。

最后，在VBA编辑器中运行AddContextMenu()子程序，即可添加右键菜单和按钮。右键单击任意单元格时，菜单将显示在顶部，并且单击每个按钮时，将显示相应的用户窗体。