excel2007批注框集体变窄的原因分析

选中批注框，右键，设置批注格式，属性自己根据需要设置。
批量修改批注框大小(宽度与高度)的方法，批量修改好批注框的大小以后，可以达到统一尺寸的效果。
假设你的一个工作表，里面有几百甚至上千个批注，并且他们的大小都不是统一的，如果想将他们都改成统一的大小，该如何 *** 作？ 一个一个的去修改？显然这是不现实的，这里要用到的方法需要用到excel的VBA编辑器。
方法如下：(这里以将excel工作表内所有的批注改为宽度350，高度改为250为例)
1打开 你的 excel 工作薄，按下 Alt + F11 键，调出excel的VBA编辑器；
2 单击菜单栏上的“插入”，打开的菜单单击“模块”命令：
3 将下面的代码复制到模块框中，这里以将所有批注的宽度改为350为例：
Sub 批量修改批注框宽度()
Dim Cmt As Comment
For Each Cmt In ActiveSheetComments
CmtParentCommentShapeWidth = 350
Next Cmt
End Sub
4 单击工具栏绿色的“运行”按钮或直接按F5键;
重复上面两步，将所有批注高度修改成250，需要将width修改成为Heigh，并将大小改为250，代码如下：
Sub 批量修改批注框高度()
Dim Cmt As Comment
For Each Cmt In ActiveSheetComments
CmtParentCommentShapeHeight = 250
Next Cmt
End Sub
5 点击右上角关闭按钮 退出VBA编辑器窗口，这样，我们就完成了批量修改所有excel批注框大小的任务了。
这里注意一下，如果你的工作簿里有多个工作表，那么在运行VBA代码之前，需要先在VBA编辑器的左上方“Microsoft Excel 对象” 这里选择你需要修改的那个工作表再运行代码。
今天想到去修改excel批注框大小的原因是 因为平时整理编辑excel的时候 没注意一些细节，导致有些批注大小出现混乱的情况，有些批注框变得异常的大，有些又变得异常的小，有的甚至就变成了一条线了。尤其是变得异常的大的那些批注框，很容易导致整个excel变得混乱，例如出现在滚动条那里一拉就到几万行, 一拉就到底的那种情况。
因此，如果出现这些不和谐的情况，完全可以用这种批量修改excel批注框大小的方法进行修改。

随便点一个批注，就是在任意一个批注框里点一下，然后选择开始选项卡，再找到编辑下的选择里的选择格式相似的文本选项，这样就会一次性全部选择所有批注。

包括不同审阅者的，然后再选择审阅选项卡，找到修订里面的修订按钮里的修订选项按钮，里面就有批注的颜色设置，因为你上面已经选择了全部的批注，所以就可以全部改为同一颜色了。

使用的默认的批注，现在我们要将它进行修改右击单元格，选择编辑批注这时看到批注呈现阴影的状态然后右击批注，选择设置批注格式。这时就会出现设置批注格式的窗口，可以修改字体大小，也可以设置批注颜色等可以将边框大小改一下随便修改一下颜色等

Sub test()
    s = Timer
    Range("A1:D50")ClearComments  '清除A1:D50所有批注
    With [a1]   '设置A1单元格的批注
        ClearComments
        AddComment Text:="Comment"
        CommentVisible = False
        With CommentShape
            With TextFrameCharactersFont
                Name = "微软雅黑"
                Size = 12
                ColorIndex = 2
            End With
    
            FillForeColorSchemeColor = 41
            LineVisible = msoFalse
        End With
        Copy   '复制A1单元格
    End With
    
    Range("A1:D50")PasteSpecial xlPasteComments  '选择性粘贴，只粘贴批注
    Dim c As Range
    For Each c In Range("A1:D50")   '设置A1:D50中的每个单元格的批注
        With c
            CommentText Address
        End With
    Next c
    
    ApplicationCutCopyMode = False
    MsgBox "耗时" & (Timer - s) & "秒"
End Sub

在A1单元格里设置好批注，然后复制A1单元格，在区域A1:D50用Excel的选择性粘贴来复制批注。然后根据需要逐个修改该批注。

1、点击打开需要设置的Excel表格，在进入表格后，点击需要更改批注字体大小的单元格。

2、在选中单元格后鼠标右击单元格，在d出的对话框中选择编辑批注选项，进入批注的设置页面。

3、在进入批注设置页面后右击批注，并点击对话框中的设置批注格式选项。

4、在d出的批注格式设置页面中，选择合适的批注文字的大小，设置完成后点击页面上的确定选项，让设置生效即可。

打开要添加批注背景的WPS表格文档选中要进行批注编辑的单元格，这里选择A2单元格，使用鼠标右键，单击右键菜单中的插入批注删除批注中的默认用户名字样，输入数学科代表选中批注的边框使用鼠标右键单击右键菜单中的设置批注格式。一定要是选中的边框，在批注边框内部选中也可以出现“设置批注格式”右键菜单，但无法进行下一步 *** 作在设置批注格式对话框中，单击颜色和线条选项卡在填充选项下面的颜色后面有个下拉箭头，我们单击。在下拉列表中单击填充效果在填充效果对话框中单击选项卡在d出效果对话框中单击选择按照路径找到要作为批注背景的，选中后，单击打开回到填充效果对话框后，单击勾选锁定纵横比后，打击确定在设置批注格式对话框再次单击确定选中带有批注的单元格，使用鼠标右键，单击显示/隐藏批注可以调整的大小调整完成再次使用鼠标右键单击隐藏批注即可

---