Add Menu: sub AddMenu() { set myMenu=CommandBars.ActiveMenuBar set NewMenu=myMenu.Controls.Add(msoControlPopup,true) NewMenu.Caption="Select" Set NewMenuItem=NewMenu.CommandBar.Controls.Add(msoControlButton,1) with NewMenuItem .Caption="Select all" .OnAtion="SelectCall" .Style=msoButtonCaption end with end subsub SelectCall() Msgbox "how do you do!" end sub sub DeleteMyMenu() for each mycontrol in commandbars.activeMenuBar.controls if mycontrol.id=1 then mycontrol.delete .......
sub AddMenu()
{
set myMenu=CommandBars.ActiveMenuBar
set NewMenu=myMenu.Controls.Add(msoControlPopup,true)
NewMenu.Caption="Select"
Set NewMenuItem=NewMenu.CommandBar.Controls.Add(msoControlButton,1)
with NewMenuItem
.Caption="Select all"
.OnAtion="SelectCall"
.Style=msoButtonCaption
end with
end subsub SelectCall()
Msgbox "how do you do!"
end sub
sub DeleteMyMenu()
for each mycontrol in commandbars.activeMenuBar.controls
if mycontrol.id=1 then
mycontrol.delete
.......
只是实现比较麻烦,不过还好是USER MODE,NOT kernel mode。具体方法可与我联系
email [email protected]