在菜单模块中插入代码水貔藻疽,就可以让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