Excel 请问,VBA的用户窗体,有办法加鼠标右键菜单吗

Excel 请问,VBA的用户窗体,有办法加鼠标右键菜单吗,第1张

当然可以。

譬如,在窗体的文本框添加[复制]右键菜单,代码巧氏败如下:

Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

  核誉  If Button = 2 Then

        With Application.CommandBars.Add("Dicky", 5)

            With .Controls.Add(1)

      孝颤          .Caption = "复制"

                .OnAction = "AAA"

            End With

        .ShowPopup

        .Delete

        End With

    End If

End Sub

首先需要打开VBA编辑器,有三指坦稿种方法:

第一种:快捷键,Alt+F11

第二种:右键工作簿标签,选择“查看代码”

第三种:点击菜单栏的开发工具唯孝,选择Visual Basic选项卡

请点击输入图片描述

请点击输入图片描述

编辑信握代码,我只写了一个简单的功能:d出“HelloWorld”对话框

请点击输入图片描述

将该Excel保存为加载宏xlam格式,千万不能选错了格式,否则无法加载excel中的宏代码

请点击输入图片描述

加载刚才保存的HelloWrold.xlam。点击文件-选项-加载项,然后点击转到。如图所示

请点击输入图片描述

请点击输入图片描述

把宏文件嵌入excel菜单。点击文件-选项-自定义功能区,在自定义功能区新建选项卡,再新建组,将左侧显示的宏命令添加至新建组内,新建的选项卡和组可以重命名,宏命令可以设置自己的图标

请点击输入图片描述

请点击输入图片描述

点击命令,如图所示

请点击输入图片描述

这个菜单只在用户按住SHIFT键并点击鼠标右键时才出现。

在一个基础菜单组中,当一个菜单扮枝的ShortcutMenu属性为TRUE时,这个菜单就是快捷菜单。你可以遵循"为一个菜单添加新的菜单项"中列出的步骤为快捷菜单增加菜单项。

新的菜单组厅陆敏可能有也可能没有一个快捷菜单。要想悉信为一个菜单组建立一个快捷菜单,须遵循"建立新菜单"一章中列出的指示,并且要把POP0做为这个新菜单的标签。

Sub Ch6_AddMenuItemToshortcutMenu()

Dim currMenuGroup As AcadMenuGroup

Set currMenuGroup = ThisDrawing.Application.MenuGroups.Item(0)

'找到快捷菜单并赋值它为shortcutMenu变量

Dim scMenu As AcadPopupMenu

Dim entry As AcadPopupMenu

For Each entry In currMenuGroup.Menus

If entry.shortcutMenu = True Then

Set scMenu = entryEnd IfNext entry

' 在快捷菜单中增加菜单项


欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/bake/11993325.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-05-20
下一篇 2023-05-20

发表评论

登录后才能评论

评论列表(0条)

保存