如何在excel2007中添加一个新的右键选项并关联指定宏?
非常感谢yanxiong2008我用的是office2010,使用了这段代码之后,右键的确多了一个可以关联宏的选项,但是选择性粘贴无法使用了,麻烦您指点,特提高悬赏,非常...
非常感谢 yanxiong2008
我用的是office2010,使用了这段代码之后,右键的确多了一个可以关联宏的选项,但是选择性粘贴无法使用了,麻烦您指点,特提高悬赏,非常感谢!! 展开
我用的是office2010,使用了这段代码之后,右键的确多了一个可以关联宏的选项,但是选择性粘贴无法使用了,麻烦您指点,特提高悬赏,非常感谢!! 展开
1个回答
展开全部
Private Sub Workbook_SheetBeforeRightClick(ByVal sh As Object, ByVal Target As Range, Cancel As Boolean)
Cancel = True
With Application.CommandBars("cell")
.Reset
End With
With Application.CommandBars("cell").Controls.Add(Type:=msoControlButton, Temporary:=True)
.Caption = "保存工程(&S) Ctrl+S" '此处定义的是显示在菜单上的字符
.OnAction = "保存" '此处定义的就是指定的宏的名称
.FaceId = 3 '显示的图标
End With
Application.CommandBars("CELL").ShowPopup
End Sub
我也被这个问题困扰,我自己解决的办法是:
不用右键菜单里面的粘贴
复制数据后直接按CTRL+V粘贴,然后EXCEL会自动出现一个粘贴选项,再在里面选择自定义粘贴的方式
Cancel = True
With Application.CommandBars("cell")
.Reset
End With
With Application.CommandBars("cell").Controls.Add(Type:=msoControlButton, Temporary:=True)
.Caption = "保存工程(&S) Ctrl+S" '此处定义的是显示在菜单上的字符
.OnAction = "保存" '此处定义的就是指定的宏的名称
.FaceId = 3 '显示的图标
End With
Application.CommandBars("CELL").ShowPopup
End Sub
我也被这个问题困扰,我自己解决的办法是:
不用右键菜单里面的粘贴
复制数据后直接按CTRL+V粘贴,然后EXCEL会自动出现一个粘贴选项,再在里面选择自定义粘贴的方式
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询