Excel2007如何通过VBA实现自定义选项卡
发布网友
发布时间：2022-04-21 22:00
共3个回答
热心网友
时间：2022-07-10 20:59
在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
热心网友
时间：2022-07-10 20:59
最近刚刚好研究过这个
这个要把EXCEL2007以上文件解压，其实EXCEL2007文件是个压缩包
你把文件名修改成.zip结束，就可用RAR打开。
定制是需要XML编码的
给你个示例文件
这个示例关闭了所有EXCEL自有的选项卡
热心网友
时间：2022-07-10 21:00
