Sub Auto_open()
    On Error Resume Next
    CommandBars("新工具栏").Delete
    With CommandBars.Add("新工具栏", msoBarTop, , True)
        .Visible = True
        With .Controls.Add
            .FaceId = 263
            .ToolTipText = "我的第一个按钮"
            .OnAction = "宏1"
            .Caption = "按钮一(&Q)"
            .Style = msoButtonIconAndCaption
        End With
    End With
End Sub

Sub 宏1()
    MsgBox "第一个宏"
End Sub