Excel工具条在《EXCEL协同平》中的应用

一、EXCEL控件的应用
《EXCEL协同平台》中有大量的控件在应用，如：表间公式、回写公式的手动执行、插入单元格…;但是,大量的使用控件会影响到报表页面的设计,如下图所示:

二、EXCEL工具条的应用
如果用EXCEL工具条取代EXCEL控件的应用，不仅会让EXCEL界面更加美观，而使用起来会更加人性化 

     
三、EXCEL工具条代码设计
        Private Sub Workbook_Open()
    On Error Resume Next
    Dim mynum As Integer, MYNAME As String, mycom As String
    Application.CommandBars("报表管理").Delete
    Application.CommandBars.Add(Name:="报表管理", _
 Position:=msoBarTop).Visible = True
    Call myButton("创建符件", 1, "矩形7_单击")
    Call myButton("删除符件", 2, "CommandButton1_Click")
    Call myButton("前期填报", 3, "矩形1_单击")
    Call myButton("近期填报", 4, "矩形2_单击")
    Call myButton("样单填报", 5, "矩形3_单击")
    Call myButton("数据更新", 6, "矩形4_单击")
End Sub
Public Sub myButton(MYNAME As String, mynum As Integer, mycom As String)
    Set newButton = Application.CommandBars("报表管理").Controls.Add( _
        Type:=msoControlButton, Before:=mynum)
    With newButton
        .Style = msoButtonCaption
        .BeginGroup = True
 .Style = msoButtonCaption
        .BeginGroup = True
        .Caption = MYNAME
        .OnAction = mycom
    End With
End Sub
四、效果体验（单击右键可以下载本地观看）