如何统一设定excel批注的字体格式

在菜单模块中插入代码水貔藻疽，就可以让excel拥有统一设定批注的字体格式的功能。

代码如下：

胨检馁秣SubcommentCount()
DimcommentCountAsInteger
commentCount=Sheets("Sheet1").

Comments.CountDimiAsInteger
DimcalculateRowAsInteger
Fori=1To

commentCountcalculateRow=Len(Worksheets("Sheet1").Comments(i).Text)/37

Worksheets("Sheet1").Comments(i).Parent.Comment.Shape.Width=350

Worksheets("Sheet1").Comments(i).Parent.Comment.Shape.Height=

(Int(calculateRow)+2)*12.5Debug.PrintcalculateRow&";"&i
Nexti
EndSub