将多个评论调整为固定大小

我创build了一张Excel表格来复制办公室的桌面计划，使用filled with picture注释显示框在鼠标hover上显示面部filled with picture 。

我通过格式对象精心devise尺寸为4.5cm x 4cm 。 但是，由于一些小的改动，尺寸改变了。

我发现，使用VBA的人已经做了一个大规模的“自动调整”的改变，我认为我可以将它调整到一个固定的大小，以节省时间。

这是我的， *4.5cm x 4cm*是有问题的地区，除非它是所有需要改变，帮助？

 Sub FitComments() Dim xComment As Comment For Each xComment In Application.ActiveSheet.Comments xComment.Shape.TextFrame.Size = * 4.5cm x 4cm * Next End Sub 

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 

我发现并运行了这个代码，这似乎使我所有评论的当前大小增加了一倍，这对我来说目前效果很好，但是我无法将它们设置为特定的大小，并且随着大小的随机变形比例会变形。