[分享]2007中常用工具加入右键

andysky

很多人找不到一些常用工具，其实都在自定义中。

找出来后放于快速访问栏是一种方法，放于右键中也是一种方法

 

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Application.CommandBars("cell").Reset
Application.CommandBars("cell").Controls.Add Type:=msoControlButton, ID:=457
Application.CommandBars("cell").Controls.Add Type:=msoControlButton, ID:=443
Application.CommandBars("cell").Controls.Add Type:=msoControlButton, ID:=442
Application.CommandBars("cell").Controls.Add Type:=msoControlButton, ID:=282
Application.CommandBars("cell").Controls.Add Type:=msoControlButton, ID:=283
Application.CommandBars("cell").Controls.Add Type:=msoControlButton, ID:=364
End Sub

[此贴子已经被作者于2007-8-4 8:20:15编辑过]

冲浪世界

请问ID不同,放入右键的工具也不同吗?这些id和图标的id一样吗?我试了试,没增加呀?[em04]

andysky

QUOTE:

以下是引用冲浪世界在2007-8-4 8:38:34的发言：
请问ID不同,放入右键的工具也不同吗?这些id和图标的id一样吗?我试了试,没增加呀?[em04]

请问ID不同,放入右键的工具也不同吗?----------这就没必要问了。

这些id和图标的id一样吗?----------大大不同。

我试了试,没增加呀?------放错地方了。

冲浪世界

哪放在哪里呀,三个地方我都试了?thiswookbook,模板,我都放了,还是没有?

wangminbai

代码这样写就简练多了

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
        with Application.CommandBars("cell")

                .Reset
                .Controls.Add Type:=msoControlButton, ID:=457
                .Controls.Add Type:=msoControlButton, ID:=443
                .Controls.Add Type:=msoControlButton, ID:=442
                .Controls.Add Type:=msoControlButton, ID:=282
                .Controls.Add Type:=msoControlButton, ID:=283
               .Controls.Add Type:=msoControlButton, ID:=364

        end with
End Sub

hhzjxss

谢谢了，学习中！

hhzjxss

把自定义菜单下面加个分隔线分开就好了！

jssy

谢谢！

歌盛

罗兄辛苦了，支持