有什么办法可以统一调整excel中的所有批注的格式大小及里面的字体。
ãã1ãæå¼Excelå·¥ä½ç°¿ææ¡£ï¼æä¸ALT+F11ç»åé®è°ç¨åºVBAç¼è¾å¨ã
ãã2ãåå»èåæ ä¸çâæå ¥âï¼æå¼çèååå»â模åâå½ä»¤ã
ãã3ãå°ä¸é¢ç代ç å¤å¶å°æ¨¡åæ¡ä¸
ããSub æ¹éä¿®æ¹æ¹æ³¨()
Dim cm As Comment
For Each cm In Sheet1.Comments 'sheet1æ¯æ们è¦æ¹éä¿®æ¹æ¹æ³¨çå·¥ä½è¡¨ï¼å¯ä»¥æéæ¹åã
With cm.Shape.TextFrame.Characters.Font
.Name = "楷ä½"
.Size = 14
.ColorIndex = 3
End With
Next
End Sub
ãã4ãåå»å·¥å ·æ 绿è²çâè¿è¡âæé®æç´æ¥æF5é®ã
ãã5ãéåºVBAç¼è¾å¨çªå£ï¼ç°å¨æ¥çä¸ä¸ææå¾ã
温馨提示:答案为网友推荐,仅供参考
第1个回答 推荐于2017-09-26
整个工作表修改-用VBA修改(搜于网上)
Sub test()
Dim mCom As Comment
For Each mCom In ActiveSheet.Comments
With mCom.Shape.TextFrame.Characters
With .Font
.Bold = msoFalse
.Size = 14
.ColorIndex = 3
End With
End With
Next
End Sub
参考资料:本回答被提问者采纳
Sub test()
Dim mCom As Comment
For Each mCom In ActiveSheet.Comments
With mCom.Shape.TextFrame.Characters
With .Font
.Bold = msoFalse
.Size = 14
.ColorIndex = 3
End With
End With
Next
End Sub
参考资料:本回答被提问者采纳
第2个回答 2008-01-14
我也来看答案的.