更改批注字体大小

yh9278

在EXCEL中，我看批注字太小，总是好吃力的，有不有什么办法能永久性的调大，不用每次写个批注就改一次大小。谢谢热心朋友。

heike2004

右键-设置批注格式-字号-任意选择较大字号-确定

linqibing

http://club.excelhome.net/viewthread.php?tid=70270

桌面点右键》属性》外观》修改项目中的“工具提示”字体

LangQueS

可以使用代码自动设置，建议上传问题附件说明要求。

lzqlaj

2楼的说法可行，以往我也是这样更改批注字体大小。

yh9278

谢谢各位，我不想改系统字体大小，只想永久性一次性加大批注字体，免得得每次修改。

yh9278

二楼的每次要改，不是我想要的啊。

LangQueS

Sub 统一设置所有批注格式()
Dim XS As Worksheet
For i = 1 To ActiveSheet.Comments.Count
'    ActiveSheet.Comments(i).Text i & "、透明批注"              '指定所有批注的内容(包括批注编号)
    ActiveSheet.Comments(i).Shape.Fill.Visible = msoFalse      '设置批注透明
    ActiveSheet.Comments(i).Shape.TextFrame.AutoSize = True    '调整批注大小
    ActiveSheet.Comments(i).Shape.Height = 30                  '批注高度
    ActiveSheet.Comments(i).Shape.Width = 50                   '批注宽度
    ActiveSheet.Comments(i).Shape.Fill.ForeColor.SchemeColor = 52          '批注底色
'  ActiveSheet.Comments(i).Shape.Fill.Transparency = 0.3          '底色透明度
    ActiveSheet.Comments(i).Shape.Line.Weight = 0.25                       '边框线宽
    ActiveSheet.Comments(i).Shape.Line.ForeColor.SchemeColor = 12          '边框颜色
    ActiveSheet.Comments(i).Shape.Line.Transparency = 0.4                  '边框透明度
    ActiveSheet.Comments(i).Shape.Shadow.ForeColor.RGB = RGB(0, 20, 150)   '阴影颜色
    ActiveSheet.Comments(i).Shape.Shadow.Transparency = 0.4                '阴影透明度
    ActiveSheet.Comments(i).Shape.Shadow.OffsetX = 5.5                     '横向阴影大小
    ActiveSheet.Comments(i).Shape.Shadow.OffsetY = 3.5                     '纵向阴影大小
    ActiveSheet.Comments(i).Shape.TextFrame.Characters.Font.Size = 10      '字号
    ActiveSheet.Comments(i).Shape.TextFrame.Characters.Font.Bold = True    '字体
    ActiveSheet.Comments(i).Shape.Visible = False                          '隐藏批注
Next
End Sub

yh9278

我不会宏啊，还有没有别的解决方式？

[ 本帖最后由 yh9278 于 2010-8-20 14:17 编辑 ]

LangQueS

采购进程控制.rar (20.52 KB, 下载次数: 38)

2010-8-20 14:31 上传

点击文件名下载附件