将多个注释的大小调整为固定大小

Question

我创建了一张excel表来复制办公室的桌面计划，使用评论显示框4.5cm x 4cm来显示鼠标悬停的照片。

我通过格式对象将它们精确地调整为*4.5cm x 4cm*。但由于一些小的改动，尺寸改变了。

我发现使用VBA的人已经对'Autofit'进行了大规模的更改，我认为我可以将其定制为固定大小以节省时间。

这就是我所拥有的，Sub FitComments() Dim xComment As Comment For Each xComment In Application.ActiveSheet.Comments xComment.Shape.TextFrame.Size = * 4.5cm x 4cm * Next End Sub 是有问题的区域，除非它全部需要改变，有帮助吗？

{{1}}

Answer 1

Sub SizeComments()
    Dim cmt As Comment

    For Each cmt In ActiveSheet.Comments
        With cmt.Shape
            .ScaleWidth 2, msoFalse, msoScaleFromTopLeft
            .ScaleHeight 2, msoFalse, msoScaleFromTopLeft
        End With
    Next cmt
End Sub

我找到并运行了这段代码，这似乎是我所有评论的当前大小的两倍，暂时效果很好，但是我无法将它们设置为特定的大小并且随机失真这个比例将会变形。