右键单击以阻止vba中的所有图表和图片

这段代码第一次运行时筛选所有右键菜单，第二次运行时恢复设置。

暗淡？我？作为？龙，？我的酒吧？作为？命令栏

为了什么？每个？我的酒吧？在？申请。“命令栏”在所有命令栏菜单中循环。

如果？我的吧。类型？=?msoBarTypePopup？如果菜单是弹出菜单。

我？=?我？+?1

ActiveSheet。细胞(我，？“甲”)？=?我的吧。名字

ActiveSheet。细胞(我，？“B”)？=?我的吧。名字

我的吧。启用？=?不是吗？我的吧。使能够

ActiveSheet。细胞(我，？“C”)？=?我的吧。使能够

请注意，代码运行后，您必须按Enter来区分您需要哪些菜单。

结束？如果

然后

结束？Sub，自己检查一下需要屏蔽哪些菜单！

对于一个图表来说，它应该包含不止一个右键菜单，我们必须把这些菜单一个一个区分开来才能有的放矢。

或者你可以提供附件，我帮你一起分析！

我为你做了一个班级模块测试附件。您可以下载附件进行测试。目前对于图片对象好像是屏蔽的。

形状工具栏可以防止弹出右键菜单。

图表太复杂，可以下载附件测试一下:

祝你中秋节快乐！！(来自巴蜀兄弟公司unsamesky的祝福)