[已解决]excel批注问题

fxgg72 · 发表于 2013-6-24 06:17

如题，见附件。
谢谢各位大侠老师的帮助！

Excel2003 批注问题.zip (26.5 KB, 下载次数: 14)

hwc2ycy · 发表于 2013-6-24 07:09

字体就不知道是否能用技巧来实现。
一直显示在菜单里改下就可以了。

妞叫七七 · 发表于 2013-6-24 07:13

单设置这一个工作簿的批注格式，用现有的EXCEL功能无法完成，只能用VBA批量完成，另外脚本编辑器不知道能不能批量替换，我的EXCEL打不开脚本，没法测试

hwc2ycy · 发表于 2013-6-24 07:19

Sub test()
Dim objRg As Range
On Error Resume Next
Application.DisplayCommentIndicator = xlCommentAndIndicator
For Each objRg In ActiveSheet.UsedRange.SpecialCells(xlCellTypeComments)
With objRg.Comment
.Shape.DrawingObject.Font.Size = 14
End With
Next
ErrorHandler:
MsgBox Err.Number & vbCrLf & _
Err.Description
End Sub

复制代码

1032446692 · 发表于 2013-6-24 07:20

Sub 批量修改批注()
Dim cm As Comment
For Each cm In Sheet1.Comments 'sheet1是我们要批量修改批注的工作表，可以按需改变。
      With cm.Shape.TextFrame.Characters.Font
         .Name = "黑体"
         .Size = 12
         .ColorIndex = 0
      End With
Next
Application.DisplayCommentIndicator = xlCommentAndIndicator
End Sub

hwc2ycy · 发表于 2013-6-24 07:21

这个最佳答案由 hwc2ycy 给出，感谢 hwc2ycy 的回答。

单击隐藏图章

本着三层原则，再改下

Sub test()
Dim objRg As Range
On Error Resume Next
Application.DisplayCommentIndicator = xlCommentAndIndicator
For Each objRg In ActiveSheet.UsedRange.SpecialCells(xlCellTypeComments)
With objRg.Comment.Shape
With .DrawingObject.Font
.Size = 12
End With
End With
Next
ErrorHandler:
MsgBox Err.Number & vbCrLf & _
Err.Description
End Sub

复制代码

fxgg72 · 发表于 2013-6-24 11:55

hwc2ycy 发表于 2013-6-24 07:21
本着三层原则，再改下

高手啊！谢谢了！
[em17][em17][em17]

		自动登录	找回密码
密码			注册

[已解决]excel批注问题

点评

点评

评分