FENGJUN
认证会员
水晶 1995
发贴 800
注册 2003-3-19
状态 离线 |
|
第 2 帖 参见：
http://www.officefans.net/cdb/viewthread.php?tid=9198
将以下代码做成加载宏......
只是个例子，但可从中学到很多东西......
Sub wswx()
Dim bar As CommandBarControl, mybar1 As CommandBarPopup, mybar2 As CommandBarButton
On Error Resume Next
Set bar = Application.CommandBars(1).Controls.Add(Type:=msoControlPopup)
With bar
.Caption = "系统(&S)"
End With
Set mybar2 = bar.Controls.Add(msoControlButton)
With mybar2
.Caption = "退出系统(&X)"
.OnAction = "auto_close"
End With
Set mybar1 = bar.Controls.Add(Type:=msoControlPopup, ID:=CommandBars(1).Controls(5).ID)
Set mybar2 = bar.Controls.Add(Type:=msoControlButton, ID:=CommandBars(1).Controls(7).Controls(1).ID)
End Sub
[ 本贴由 FENGJUN 于 2003-5-19 18:04 最后编辑 ] | |
