作者：绿色风
分类：
时间：2022-08-17
浏览：117
楼主
biaotiger1 |
Q：如何通过右键菜单更改批注的默认形状？
A：ALT+F11→“插入”→“模块”，在新建模块中输入代码如下：- Sub 设置填充批注背景色()
- Application.ScreenUpdating = False
- With Selection.Cells(1, 1)
- .ClearComments
- .AddComment
- With .Comment
- .Visible = True
- .Shape.AutoShapeType = msoShapeOval
- End With
- End With
- Application.ScreenUpdating = True
- End Sub
- Sub 初始化右键菜单中的插入批注命令()
- Application.CommandBars("cell").Controls("插入批注(&M)").OnAction = "设置填充批注背景色"
- End Sub
- Sub 重置右键菜单中的插入批注命令()
- Application.CommandBars("cell").Controls("插入批注(&M)").Reset
- End Sub
在sheet1工作表中插入两个按钮，分别指定宏为“初始化右键菜单中的插入批注命令”和“重置右键菜单中的插入批注命令”。
单击“初始化右键菜单中的插入批注命令”按钮后，右键单击单元格，弹出快捷菜单→“插入批注”，此时插入的批注形状即为椭圆形。
如果要恢复Excel默认的矩形标注，则单击“重置右键菜单中的插入批注命令”按钮即可重置标注形状。
 如何更改批注的默认形状.rar
|
2楼
海绵宝宝 |
标哥对SHAPE很有研究，这贴我收藏了
 |
3楼
wise |
|
4楼
dyc520 |
我不小心按上面的方式操作，导致我现在不能插入批注了，我用的是excel2003。请求帮助，在线等解决！ |
5楼
biaotiger1 |
我看到啦。
只是我家里计算机中没装Excel2003版，无法测试啊。
一楼代码中并没有把批注怎么地啊，仅仅是个性化了形状。怎么会找不到批注了呢？
建议录制一段屏幕动画后上传？ |
6楼
kevinchengcw |
- Sub 重置右键菜单中的插入批注命令()
- Application.CommandBars("Cell").Controls("插入批注(&M)").Reset
- End Sub
运行一下这句试一下 |
7楼
kevinchengcw |
再不行，再上一层- Application.CommandBars("Cell").Reset
|
8楼
dyc520 |
附件是详细截图，有些excel又可以使用批注，但新建一个excel就不能使用，请指教。不能插入批注.gif
 |
9楼
云游子 |
我的这个文档，右键找不到插入批注，大手们帮忙看一下！
2008年迟到.rar
|
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一