如何利用VBA为批注填充背景色？

作者：绿色风分类：时间：2022-08-17 浏览：124

楼主 biaotiger1	Q：如何利用VBA为批注填充背景色？ A：ALT+F11→“插入”→“模块”，在新建模块的代码窗口中输入代码如下 Sub 设置填充批注背景色() With Cells(1, 1) .ClearComments .AddComment With .Comment .Visible = True .Text Text:="biaotiger1:" & Chr(10) & "" With .Shape.Fill .ForeColor.SchemeColor = 3 End With End With End With End Sub 运行以上代码，则A1单元格插入批注并更改其背景色为绿色。如下图
2楼 biaotiger1	Q：如何利用VBA设置批注背景色为双色渐变？ A：ALT+F11→“插入”→“模块”，在代码窗口中输入代码如下 Sub 设置批注背景为双色渐变() With Cells(1, 1) .ClearComments .AddComment With .Comment .Visible = True .Text Text:="biaotiger1:" & Chr(10) & "" With .Shape.Fill .ForeColor.SchemeColor = 2 .BackColor.SchemeColor = 5 .TwoColorGradient msoGradientVertical, 1 '设置垂直渐变 .TwoColorGradient msoGradientHorizontal, 1 '设置水平渐变 End With End With End With End Sub 单步运行以上代码，则批注背景色分别设置为垂直双色渐变及水平双色渐变。如下图
3楼童心	沙发！谢谢老师！
4楼 bluexuemei	学习,很精彩的代码!

免责声明

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

评论列表