如何使用VBA代码批量调整批注框的长宽

backtrack

Sub 批量改批注框宽度()
    Dim a As Comment
        For Each a In ActiveSheet.Comments
            a.Parent.Comment.Shape.Width = 100
        Next a
End Sub


Sub 批量改批注框长度()
    Dim a As Comment
        For Each a In ActiveSheet.Comments
            a.Parent.Comment.Shape.Height = 100
        Next a
End Sub

backtrack

在 Visual Basic 中插入模块，复制粘贴运行即可

backtrack

第四行“=”后的数值代表想要设置的长宽值，可根据需求修改使用