vba菜单与命令

⑴ vba的窗体中如何添加菜单

VB实现窗口的弹出式菜单

在Windows95、Windows98或NT的风格中，有按动鼠标器右键弹出下拉菜单的操作，在VB执行环境下，有一些控件本身具有弹下拉菜单的功能，如TexTbox控件等，但大多数编辑类控件以及窗体本身却没有此功能，要在窗口中任意位置实现PopUpMenu（弹出式菜单），可借助VB的菜单工具来实现。
首先，打开VB的“工具”菜单条，利用“菜单编辑器”为窗体生成一个菜单：
标题(Caption) 菜单条名(Name)
编辑 menuEdit
……复制 mnuCopy
……剪切 munCut
其次，将生成的menuEdit菜单设置为不可视。
Private Sub Form_Load()
Me.menuEdit.Visibe=False
′menuEdit菜单设置为不可视
End Sub
然后，利用MouseDown事件实现任意位置弹出PopUpMenu，如下例：
本例中以RichTexBox控件为例，在其上面实现复制、剪切功能。
1．复制功能的实现。
Private Sub MnuCopy_Click()
Clipboar.Clear′将剪贴板清空
′将RichTexBox控件上选择上的内容复制到剪贴板
Clipboard.SetTextRichTexBox1.SelText
End Sub
2．剪切功能的实现。
Private Sub MnuCut_Click()
Clipboard.Clear ′将剪贴板清空
′将RichTextBox控件上选择了的内容复制到剪贴板
Clipboard.SetTextRichBox1.SelText
′将RichTexBox控件上选择了的内容删除
SendKeys〃{DELETE}〃,True
End Sub
3．在RichTexBox控件的MouseDown事件中实现任意位置弹出PopUPMenu。
OPrivate Sub RichTexBox1_MouseDown(Button As Integer,Shift As Integer,x As Single,Y As Single)
Dim MnuFile AS Menu ′声明一个菜单类型的变量
Set munFile=Me.MenuEdit ′将MenuEdit赋给菜单变量
if Button=2 Then ′判断是否按动鼠标器右键
′判断RichTexBox控件上选择了的内容是否存在，决定复制、剪切菜单条是否可操作。
If Len(RichTexBox.Text)=0 Or Len(RichTexBox.SelText)=0 Then
mnuCopy.Enabled=Flase ′复制菜单条不可操作。
nmuCut.Enabled=False ′剪切菜单条不可操作。
nmuCopy.Enabled=True ′复制菜单条可操作。
nmuCut.Enabled=True ′剪切菜单条可操作。
End IF
PopupMenu mnuFile ′弹出PopUpMenu。
End If
End Sub
这样，在VB执行环境中，操作窗体上的RichTexBox控件，按动鼠标器右键就可弹出下拉菜单，实现复制、剪切功能。

⑵ EXCEL VBA 如何用命令按钮关闭VBA的窗口

1、在工作表中，点击菜单栏【开发工具】，在其工具栏内，点击【visual basic】。

⑶ VBA中怎样生成2级命令菜单

整整1个小时，通过研究“List”工具栏得到启发
测试通过
模块中：

Dim cbar As CommandBar
Dim cCtrol As CommandBarControl
Dim cmd1 As CommandBarControl
Dim cmd As CommandBarButton
Sub AutoOpen()
Set cbar = Application.CommandBars.Add(Name:="CAL-Lab7", Position:=msoBarTop, MenuBar:=False, Temporary:=True)
Set cCtrol = cbar.Controls.Add(Type:=msoControlPopup)
With cCtrol
.Caption = "CHeck"
End With
Set cmd1 = cCtrol.Controls.Add(Type:=msoControlPopup)
With cmd1
.Caption = "测试"
End With
Set cmd = cmd1.Controls.Add(1)
With cmd
.Style = msoButtonIconAndCaption
.Caption = "SetDMMVoltage"
.FaceId = 0
.Tag = "d2"
.OnAction = "SetVoltage"
End With

End Sub

哈哈，记得加分哦！

⑷ 如何用VBA在WORD中创建命令栏（即菜单项）菜单项，能传参给调用宏,与excel的onAction不一样。

可以试试回调函数

⑸ 关于 Excel VBA 添加自定义命令

添加个标准模块，把代码放进去，然后就可以在表格的公式栏使用了

假设这个函数名为 MyFunction,可以在某个单元格的公式栏输入 =MyFunction() 。这样这个单元格就可以获得你的函数的返回值了，当然，你不要试图在你的自定义函数里面更改其他单元格的值，只能读取！！！微软因为安全问题不允许在自定义函数里面更改其他值，当然啦，这个也是有变通方法的。

⑹ 如何用vba给vbe内置菜单命令栏添加自定义命令

Dim lc_updatebut As CommandBarButton
Dim lc_updatebar As CommandBar

Set lc_updatebar = ThisWorkbook.Application.CommandBars("San2")
lc_updatebar.Controls.Add Type:=msoControlButton, Before:=1, Temporary:=True
Set lc_updatebut = lc_updatebar.FindControl(Type:=msoControlButton)
lc_updatebut.OnAction = "test" '调用的函数名称
lc_updatebut.Tag = "update"
lc_updatebut.Caption = "标题"
lc_updatebut.FaceId = 59
lc_updatebut.Enabled = True
lc_updatebut.Style = msoButtonIconAndCaption
lc_updatebut.Visible = True

⑺ 如何用VBA代码为Word添加菜单（即命令栏）

Dim
myMenuBar
Dim
newMenu
Dim
ctrl1
Dim
s
Dim
flag
As
String
'初始化菜单
Set
myMenuBar
=
CommandBars.ActiveMenuBar
Set
newMenu
=
myMenuBar.Controls.Add(Type:=msoControlPopup,
_
Temporary:=True)
newMenu.Caption
=
"电子印章"
Set
ctrl1
=
newMenu.Controls.Add(Type:=msoControlButton,
ID:=1)
ctrl1.Caption
=
"添加电子印章"
ctrl1.Style
=
msoButtonCaption
ctrl1.OnAction
=
"AddSeal"
Set
ctrl1
=
newMenu.Controls.Add(Type:=msoControlButton,
ID:=1)
ctrl1.Caption
=
"验证电子印章"
ctrl1.Style
=
msoButtonCaption
ctrl1.OnAction
=
"CheckSeal"
ctrl1.Style
=
msoButtonCaption
Set
ctrl1
=
newMenu.Controls.Add(Type:=msoControlButton,
ID:=1)
ctrl1.Caption
=
"关于"
ctrl1.OnAction
=
"About"
ctrl1.Style
=
msoButtonCaption

⑻ CAD中用VBA添加了菜单。单击菜单运行相应程序弹出窗口，代码是什么谢谢了

APPLOAD
加载和卸载应用程序，定义要在启动时加载的应用程序

CUI
管理自定义用户界面元素，例如工作空间、工具栏、菜单、快捷菜单和键盘快捷键

命令行: arx

输入选项 [?/加载(L)/卸载(U)/命令(C)/选项(O)]:
VBAIDE
显示 Visual Basic 编辑器

VBALOAD
将全局 VBA 工程加载到当前工作任务中

VBAMAN
加载、卸载、保存、创建、嵌入和提取 VBA 工程

VBARUN
运行 VBA 宏

VBASTMT
在 AutoCAD 命令行中执行 VBA 语句

VBAUNLOAD
卸载全局 VBA 工程

⑼ excel2010vba菜单在哪

在EXCEL2010文件选项卡中选择选项以打开EXCEL选项对话框。在该对话框左侧的“自定义功能区”中“从下列位置选择命令”中选择“常用命令”，这个时候可见右侧“自定义功能区”下的“主选项卡”下有一个名为“开发工具”的复选框没有选中，选择之后在EXCEL2010的功能区中出现了开发工具选项卡，其中就有VBA工具。

⑽ 如何用VBA在WORD中创建命令栏（即菜单项）并在每个菜单项上加上图标

你的代码是正确的,但是如果你要显示图标,你需要把所有ctrl1.style = msoButtonCaption 这一句改为 ctrl1.Style = msoButtonIconAndCaption,这样就能够一起显示图标和文字了,我试过是可以的,希望能帮到你