怎样在excel中创建自定义菜单vb源代码.docxVIP

怎样在 EXCEL 中创建自定义菜单 vb 源代码 Sub addToolBar() Dim foundflag As Boolean ===== 增加工具栏 ======== foundflag = False For Each ct In CommandBars(standard).Controls Debug.Print ct.Caption If ct.Caption myMenu ：我的自定义菜单 Then Else foundflag = True End If Next If foundflag = False Then Set newitem = CommandBars(standard).Controls.Add(Type:=msoControlButton, ID:=1, Before:=19) 工具栏名称 类型 按钮 ID 为 1 自定义 --- With newitem .Style = msoButtonIconAndCaption 同时显示图标和说明 .Style = msoButtonIcon 仅显示按键图标 .Caption = myMenu ：我的自定义菜单 为按键写文字说明 .OnAction = showAbout 指定工作的宏 .FaceId = 459 End With End If End Sub Sub addMenu