请问高手，怎样让批注框的大小自适应内容的多少？

marlboro

或者是怎样通过程序来改变批注框的大小呢？

我录了这个宏，怎么不行啊：

With xl.Range("A1").Select Selection.ShapeRange.ScaleHeight 2.81, msoFalse, msoScaleFromTopLeft End With

taller

自适应我不知道怎么实现,改大小用下面的代码

xl.Range("A1").Comment.Shape.Select True

Selection.ShapeRange.ScaleHeight 2.81, msoFalse, msoScaleFromTopLeft

Rowen

可令该批注对象的 .AutoSize = True

grandf

 .Shape.TextFrame.AutoSize = True

hxth99

如果是自动选择大小的化，如果内容较多，则使得审阅框过宽，影响美观。
我自己作了个，效果也一般，就是先用楼上说的 autosize，然后利用面积相等，在4：3比例下算出宽高尺寸，在调整审阅框

820211639

{:soso_e100:}

舍予木南

grandf 发表于 2008-7-25 06:33
 .Shape.TextFrame.AutoSize = True

答案相当成功，这里是个好论坛。