作者：绿色风
分类：
时间：2022-08-17
浏览：126
楼主
biaotiger1 |
Q：如何利用VBA个性化右键快捷菜单中批注的格式（包括字体、背景色）？
A：ALT+F11→“插入”→“模块”，在代码窗口中输入如下代码
- Sub 初始化右键菜单中的插入批注命令()
- Application.CommandBars("cell").Controls("插入批注(&M)").OnAction = "设置填充批注背景色"
- End Sub
- Sub 重置右键菜单中的插入批注命令()
- Application.CommandBars("cell").Controls("插入批注(&M)").Reset
- End Sub
- Sub 设置填充批注背景色()
- Application.ScreenUpdating = False
- With Selection.Cells(1, 1)
- .ClearComments
- .AddComment
- With .Comment
- .Visible = True
- .Text Text:="biaotiger1:" & Chr(10) & ""
- With .Shape.TextFrame.Characters.Font
- .Name = "宋体"
- .Size = 14
- .Color = -16776961
- End With
- With .Shape.Fill
- .ForeColor.SchemeColor = 11
- End With
- End With
- End With
- Application.ScreenUpdating = True
- End Sub
运行以上“初始化右键菜单中的插入批注命令”后，在工作表中右键单击单元格（或区域）→“插入批注”，则批注格式个性化设置，如下图A2单元格所示。
运行以上“重置右键菜单中的插入批注命令”后，在工作表中右键单击单元格（或区域）→“插入批注”，则批注格式恢复默认，如下图A8单元格所示。
 修改批注格式.rar
|
2楼
biaotiger1 |
楼上代码犯了一个错误，修正如下- Sub 设置填充批注背景色()
- Application.ScreenUpdating = False
- With ActiveCell
- .ClearComments
- .AddComment
- With .Comment
- .Visible = True
- .Text Text:="biaotiger1:" & Chr(10) & ""
- With .Shape.TextFrame.Characters.Font
- .Name = "宋体"
- .Size = 14
- .Color = -16776961
- End With
- With .Shape.Fill
- .ForeColor.SchemeColor = 11
- End With
- End With
- End With
- Application.ScreenUpdating = True
- End Sub
将Selection.Cells(1, 1)替换为ActiveCell
|
3楼
水星钓鱼 |
这个就相当于修改内置菜单命令的原有功能 |
4楼
dwchung |
前两个执行时出错呀，是什么原因 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一