1、菜单栏属于CommandBars集合,可以通过菜单栏名称或索引值对其进行引用:CommandBars(“Worksheet Menu Bar”)或CommandBars(1) 2、新添加的菜单是一个弹出式控件,其类型为msoControlPopup。 3、通过Add方法向Controls集合中添加新的控件。Add方法可以指定控件的类型、内置控件的ID号、位置及是否是一个临时控件。如果是一...
myAct = Array("myNz1", "myNz2", "myNz3")With Application.CommandBars("Worksheet menu bar").Reset Set myTools = .Controls.Add(Type:=msoControlPopup)With myTools .Caption = "VBA学习".BeginGroup = True For i = 1 To 3 With .Controls.Add(Type:=msoControlButton).Caption = myCap(i -...
End WithSetNewBar=Application.CommandBars.Add(Name:="NewBar",Position:=msoBarTop,MenuBar:=True,Temporary:=True)With NewBar.Visible=TrueWith.Controls.Add(Type:=msoControlPopup).Caption="系统设置(&X)".BeginGroup=TrueWith.Controls.Add(
① 按序号表示excel中命令栏 CommandBars(index) ② 按命令栏名称表示某一个命令栏 CommandBars(命令栏名称) 2. 命令栏中的命令集合Controls ① 按序号表示菜单中的某个命令 CommandBars(index).Controls(index) ② 按命令栏名称表示某一个命令 CommandBars(index).Controls(命令标题) 3. 子菜单中的命令表示方法,后...
With Application.CommandBars.Add(Name:=Mname, _ Position:=msoBarPopup, _ MenuBar:=False, _ Temporary:=True) With .Controls.Add(Type:=msoControlButton) .Caption = "按钮 1" .FaceId = 71 .OnAction = "'" & ThisWorkbook.Name & "'!" & "TestMacro" ...
With Application.CommandBars.Add(Name:=Mname, _ Position:=msoBarPopup, _ MenuBar:=False, Temporary:=True) '首先,在菜单中添加两个按钮. With.Controls.Add(Type:=msoControlButton) .Caption = "按钮1" .FaceId = 71 .OnAction = "'" &ThisWorkbook.Nam...
用Add方法可在 CommandBarControls集合中添加一个新的命令栏控件。本示例可在命令栏“Custom”中新添一个空白按钮。 Set myBlankBtn = CommandBars("Custom").Controls.Add 用Controls(index) 可返回一个 CommandBarControl、CommandBarButton、CommandBarComboBox 或CommandBarPopup对象;此处 index 是该控件的题注或索引...
CommandBars(1).Controls("统计(&S)").Delete 1. 将删除刚创建的“统计”菜单。 添加菜单项 与添加新菜单一样,在添加菜单项及子菜单时,使用Add方法,且指定合适的控件类型,其代码清单如下: Sub AddNewMenu() Dim HelpMenu As CommandBarControl Dim NewMenu As CommandBarPopup ...
Application.CommandBars("Worksheet menu bar").Reset End Sub Sub myNz()MsgBox "欢迎学习VBA代码解决方案第一册"End Sub Sub myNz()MsgBox "欢迎学习VBA代码解决方案第二册"End Sub Sub myNz()MsgBox "欢迎学习VBA代码解决方案第三册"End Sub 代码解析：Mynz过程使用Add方法在Excel工作表菜单栏中加一个标题...
Application.VBE.CommandBars(1).Controls(sBAR_NAME).Delete On Error GoTo0'添加菜单 Set my_bar=Application.VBE.CommandBars(1).Controls.Add(msoControlPopup)my_bar.Caption=sBAR_NAME Set tmp_bar=my_bar '打开目录 num_file=VBA.FreeFile Open ThisWorkbook.Path&VBACodes For Input As #num_file ...