excel vba批量修改批注内容字体样式

excel单元格右键，我们可以插入批注。批注是对单元格内容的补充说明作用。当然了，批注也跟单元格的字符一样，可以修改字体格式。但是如何批量修改这个批注内容的样式呢？这里我们自定义了一个批量修改批注样式的函数：
Sub批量修改批注()
DimcmAsComment
ForEachcmInSheet1.Comments 'sheet1是我们要批量修改批注的工作表，可以按需改变。
Withcm.Shape.TextFrame.Characters.Font
.Name="宋体"
.Size=12
.ColorIndex=3
EndWith
Next
EndSub
这里修改字体为宋体，大小为12，字体颜色为红色，效果图：

1508575108113268.png