VBA窗体右键复制粘贴功能实现

VBA学的不精,为了自用,做了一个窗体,里面的文本框Textbox需要用到右键复制粘贴的功能。

在网上找了许多例子,有太多复杂的东西,没看懂,抄到自己的软件里的时候,总是报错。

后来我在网上找到了一个可以用的。获取链接

在这个网页里介绍,在使用工具时,需要设置TextBox

EnterKeyBehaviour = True
MultiLine = True

ScrollBars = fmScrollBarsBoth or fmScrollBarsVertical

我用Excel2010导入这个代码,并没有对Textbox进行设置,也是可以用的。这应该是新版本的Excel做了功能改进。

我将这个代码整合到了Excel文件中,可以在这里下载






  • 0
    点赞
  • 2
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
要在 Word VBA 中添加右键菜单及子菜单并调用窗体,可以按照以下步骤进行操作: 1. 创建一个新的 Word 宏,在“开发工具”选项卡中选择“宏”。 2. 在“宏名”中输入一个名称,例如“AddContextMenu”,然后点击“创建”。 3. 在新的代码窗口中输入以下代码来创建右键菜单及子菜单: ``` '创建右键菜单 Sub AddContextMenu() Dim PopUpMenu As CommandBarPopup Dim PopUpSubMenu As CommandBarPopup Dim ButtonControl As CommandBarButton Dim SubButtonControl As CommandBarButton '创建右键菜单 Set PopUpMenu = Application.CommandBars("Text").Controls.Add(Type:=msoControlPopup, Temporary:=True) PopUpMenu.Caption = "右键菜单" '创建子菜单 Set PopUpSubMenu = PopUpMenu.Controls.Add(Type:=msoControlPopup) PopUpSubMenu.Caption = "子菜单" '创建按钮 Set ButtonControl = PopUpSubMenu.Controls.Add(Type:=msoControlButton) ButtonControl.Caption = "按钮1" ButtonControl.OnAction = "OpenForm1" '创建另一个按钮 Set SubButtonControl = PopUpSubMenu.Controls.Add(Type:=msoControlButton) SubButtonControl.Caption = "按钮2" SubButtonControl.OnAction = "OpenForm2" End Sub ``` 4. 创建一个名为“OpenForm1”的过程,该过程将打开一个名为“Form1”的用户窗体: ``` Sub OpenForm1() Form1.Show End Sub ``` 5. 创建另一个名为“OpenForm2”的过程,该过程将打开一个名为“Form2”的用户窗体: ``` Sub OpenForm2() Form2.Show End Sub ``` 6. 在“开发工具”选项卡中选择“设计模式”,然后在“控件”选项卡中选择“用户窗体”。 7. 在用户窗体中添加所需的控件和代码。 8. 保存并关闭用户窗体,返回代码窗口。 9. 在代码窗口中输入以下代码来显示右键菜单: ``` Private Sub Document_ContentControlOnEnter(ByVal ContentControl As ContentControl) '显示右键菜单 Call AddContextMenu End Sub ``` 现在,当用户右键单击 Word 文档中的内容控件时,将显示您创建的右键菜单及子菜单,并且单击菜单项将调用相应的窗体

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值