求批量修改excel批注属性的代码或能解决问题的方法

lg007f

最终想解决的问题：插入的批注默认属性是大小位置均固定，导致筛选时经常会提示固定对象将被移动，且需要点很多次提示才能关闭！

造成问题的原因：是否是表格在使用筛选时，进行了插入批注操作，且插入批注的默认格式是大小位置均固定造成的？


目前的思路：用VBA批量修改批注格式为大小、位置随单元格而变




若无需VBA就能解决此问题也行，请各路大神支招，谢谢！

mxc123

[Visual Basic] 纯文本查看 复制代码

?

01 02 03 04 05 06 07 08 09 10 11 12

Sub 宏2()     For Each ws In Worksheets         Set cmt = ws.Comments         For Each c In cmt             c.Shape.Placement = xlMoveAndSize             '名称            值       说明             'xlFreeFloating  3    对象自由浮动。             'xlMove          2    对象随单元格移动。             'xlMoveAndSize   1    对象随单元格移动和调整大小。         Next     Next End Sub

mxc123

[Visual Basic] 纯文本查看 复制代码

?

01 02 03 04 05 06 07 08 09 10 11

Sub 宏2()     Set cmt = Worksheets(1).Comments     For Each c In cmt         c.Shape.Placement = xlMoveAndSize         '名称           值       说明         'xlFreeFloating 3   对象自由浮动。         'xlMove         2   对象随单元格移动。         'xlMoveAndSize  1    对象随单元格移动和调整大小。       Next End Sub

lg007f

mxc123 发表于 2022-4-27 15:46
[mw_shl_code=vb,true]Sub 宏2()
    Set cmt = Worksheets(1).Comments
    For Each c In cmt

运行后，只有第一页内的批注都改过来了，后面的工作表没有改，请老师帮忙再看一下，谢谢老师

lg007f

mxc123 发表于 2022-4-27 16:51
[mw_shl_code=vb,true]Sub 宏2()
    For Each ws In Worksheets
        Set cmt = ws.Comments

非常感谢，老师辛苦了