如何用VBA在EXCEL工作表区域的鼠标右键菜单中使用自定义图标

作者：绿色风分类：时间：2022-08-18 浏览：96

楼主 xmyjk	Q:如何用VBA在EXCEL工作表区域的鼠标右键菜单中使用自定义图标? A:两个解法：第一个：菜单图标自定义问题附件.zip Sub xq() Sheet1.Shapes("tb").Copy '复制图标图片 With Application.CommandBars("Cell").Controls.Add(Type:=msoControlButton, before:=1, temporary:=True) '添加右键菜单 .Caption = "MyCommand" '设置标题 .OnAction = "msg" '指定宏 .PasteFace '黏贴标签 End With End Sub 第二个： tb.zip Sub ChangeBtnFace() Dim Pic As stdole.StdPicture Dim pcm As IPictureDisp Set Pic = stdole.StdFunctions.LoadPicture(ThisWorkbook.Path & "\tb.jpg") '运用STDOLE对象加载图片至StdPicture类型变量内 Set pcm = stdole.StdFunctions.LoadPicture(ThisWorkbook.Path & "\tb.jpg") '运用STDOLE对象加载图片至IPictureDisp类型变量内 With Application.CommandBars("Cell").Controls.Add(Type:=msoControlButton, before:=1, temporary:=True) '添加菜单 .Caption = "MyCommand" '设置名称 .OnAction = "msg" '指定宏 .Picture = Pic '导入要使用自定义图片 .Mask = pcm '导入图标 End With End Sub
2楼い卋玑┾宝珼	第一个比较好理解，第二个就要慢慢学习了
3楼 0Mouse	这个自定义图标的功能我太喜欢了！多谢弦月分享和总结，收藏学习并留作永久回忆！
4楼 xyf2210	强

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表