Excel通过宏生成自定义菜单和按钮

最新推荐文章于 2024-05-15 15:10:55 发布

nksmiles

最新推荐文章于 2024-05-15 15:10:55 发布

阅读量4.3k

点赞数

分类专栏： Excel VBA 文章标签： excel menu vba delete string

本文链接：https://blog.youkuaiyun.com/nksmiles/article/details/7431175

版权

这段代码展示如何通过VBA在Excel中创建名为'DocTool'的自定义菜单，并添加按钮，按钮功能是转换CADIM数据到SpareCatalogueFormat。同时，它还会删除已存在的相同菜单和按钮，确保每次运行都更新最新内容。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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
    
    '''