Question

Excel2007如何通过VBA实现自定义选项卡

在EXCEL2010，用户是可以根据自身的需求自定义选项卡的，在EXCEL2007中软件并没有自带此功能。
那么在Excel2007如何通过VBA实现自定义选项卡？可以把自己编写的宏程序放在此选项卡中当作工具按钮使用。

Answer 1

在CommandBars(1)上添加，然后就跑会到加载项选项卡上。以下是我的一些实例

1）在sheet1的A:G列我放了一些按钮的基础信息，以便调用

2）添加按钮的过程如下

Sub egAddButtons()

On Error Resume Next

    Dim I As Integer, bar As CommandBar, sht As Worksheet

    Set sht = ThisWorkbook.Sheets(1)

    Set bar = Application.CommandBars(1)

    For I = 1 To 17

        With bar.Controls.Add(msoControlButton, , , , True)

            .OnAction = sht.Range("A1").Offset(I, 3).Value

            .Style = msoButtonIconAndCaption

            .FaceId = sht.Range("A1").Offset(I, 4).Value

            .Caption = sht.Range("A1").Offset(I, 1).Value

            .Tag = "NewButton"

        End With

    Next

    Set sht = Nothing

    Set bar = Nothing

End Sub

3）删除按钮的过程

Sub egDeleteButtons()

On Error Resume Next

    Dim bar As CommandBar, ctl As CommandBarControl

    Set bar = Application.CommandBars(1)

    With bar

        For Each ctl In bar.Controls

            If ctl.Tag = "NewButton" Then

                ctl.Visible = False

                ctl.Delete

            End If

        Next

    End With

    Set bar = Nothing

    Set ctl = Nothing

End Sub

Answer 2

最近刚刚好研究过这个

这个要把EXCEL2007以上文件解压，其实EXCEL2007文件是个压缩包

你把文件名修改成.zip结束，就可用RAR打开。

定制是需要XML编码的

给你个示例文件

这个示例关闭了所有EXCEL自有的选项卡

Answer 3

这个我以前做过，现在想不起来了。你到课堂屋上面去找一下视频教程吧，应该有的。excel2007版本的