Question

我已更新到2016年Excel,并在2011年Excel开展工作的以下法典产生了这一错误。

Dim Commnt As Comment
    
For Each Commnt In Application.ActiveSheet.Comments   Autosize all comment boxes on the sheet
    Commnt.Shape.TextFrame.AutoSize = True
Next

如何使2016年Excel的所有工作表评论自动化?

经过进一步研究,我尝试取得了以下成果。

Dim Shp As Shape
For Each Shp In wks1.Shapes
    With Shp.TextFrame2
        .AutoSize = msoAutoSizeShapeToFitText
        .WordWrap = msoTrue
    End With
Next Shp

Answer 1

如MSDN所记载,评注的文字框架(和文本框架2)在2016年仅读作。

https://msdn.microsoft.com/en-us/vba/excel-vba/articles/shape-textframe-property-excel https://msdn.microsoft.com/en-us/vba/excel-vba/articles/shape-textframe2-property-excel

对Excel 365进行的快速测试表明,可以利用沙皮物体本身的自动不动产实现该评论的自动化。

Dim Commnt As Comment

For Each Commnt In Application.ActiveSheet.Comments   Autosize all comment boxes on the sheet
    Commnt.Shape.AutoSize = True
Next

然而,这并不被认为在2016年生效。

Answer 2

ActiveWorkbook.DisplayDrawingObjects = xlDisplayShapes

Check your workbook property, if shape is not available, calling autosize will cause the error. Workbook.DisplayDrawingObjects property

友情链接