2013版Excel vba窗体userform制作菜单栏的代码

在2013版Excel VBA中，UserForm 的菜单栏通常通过使用控件 "MenuStrip" 或者 "Ribbon" 来创建，因为MenuStrip已经被Fluent User Interface（Fluent UI）所取代。以下是一个简单的例子，展示如何在UserForm上创建一个基本的MenuStrip：

Private Sub UserForm_Initialize()
    Dim menuStrip As MSForms.MenuStrip
    Set menuStrip = Me.Controls.Add("Forms.MenuStrip.1", "MyMenuStrip")
    
    ' 创建第一个菜单
    Dim menu1 As MSForms.ToolStripMenuItem
    Set menu1 = menuStrip.MenuItems.Add(0, "Menu1", "Menu 1")
    
    ' 创建第一个子菜单及其命令按钮
    Dim subMenu1 As MSForms.ToolStripMenuItem
    Set subMenu1 = menu1.DropDownItems.Add(0, "SubMenu1", "Sub Menu 1")
    Dim btn1 As MSForms.Button
    Set btn1 = Me.Controls.Add("Forms.Button.1", "Btn1", 50, 50)
    btn1.Caption = "Button 1"
    btn1.OnClick = "btn1_Click"

    ' 添加点击事件处理程序
    Private Sub btn1_Click()
        MsgBox "You clicked on Button 1!"
    End Sub
End Sub

这里我们首先创建了一个MenuStrip，并添加了两个菜单（Menu1和SubMenu1）。然后我们在SubMenu1下添加了一个按钮，当用户点击该按钮时，会弹出一个消息框。

请注意，从VBA的角度来看，Ribbon的设计更为复杂，通常需要了解Office Fluent User Interface的详细知识来定制。如果你需要创建更复杂的UI，建议查阅相关的官方文档或教程。