Sub CreateToolbar(ByVal b As Boolean)
If Not b Then End
Dim myButton As Variant
Dim sMessage As String
''' Reset menus and buttons, delete if exist.
On Error Resume Next
CommandBars("Worksheet Menu Bar").Reset
CommandBars("Knorr Toolbar").Controls("SpareCatalogueFormat").Delete
On Error GoTo 0
On Error GoTo ErrHandler01
''' Add DocTool menu
Set myButton = CommandBars("WorkSheet Menu Bar").Controls.Add(Type:=msoControlPopup, Temporary:=True)
With myButton
.Caption = "&DocTool"
With .Controls.Add(msoControlButton)
.Caption = "Convert Data from CADIM to SpareCatalogueFormate"
.OnAction = "SpareCatalogueFormat"
.FaceId = 8
.BeginGroup = True
End With
End With
'''
Excel通过宏生成自定义菜单和按钮
最新推荐文章于 2024-05-15 15:10:55 发布
这段代码展示如何通过VBA在Excel中创建名为'DocTool'的自定义菜单,并添加按钮,按钮功能是转换CADIM数据到SpareCatalogueFormat。同时,它还会删除已存在的相同菜单和按钮,确保每次运行都更新最新内容。
摘要由CSDN通过智能技术生成