Question

当我录制宏时，我得到了

Range("C1").Select 
Range("C1").AddComment 
Range("C1").Comment.Text Text:="Blabla" 
Selection.ShapeRange.ScaleHeight 2.3, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleWidth 23.1, msoFalse, msoScaleFromTopLeft

运行此代码会导致：

运行时错误＆＃39;＆＃39;：对象不支持此属性或方法

有人有任何想法吗？

Answer 1

您可以直接使用Comment：

With Range("C1")
    .AddComment Text:="Blabla"
    With .Comment.Shape
        .ScaleHeight 2.3, msoFalse, msoScaleFromTopLeft
        .ScaleWidth 23.1, msoFalse, msoScaleFromTopLeft
    End With
End With

Answer 2

与罗里一样。我在添加评论之前先添加clearcomments，以避免在评论已经存在的情况下出现错误。

Sub AddCommentAndResize()

With Range("C1")
    .ClearComments
    .AddComment Text:="Blabla"
    With .Comment.Shape
        .ScaleHeight 2.3, msoFalse, msoScaleFromTopLeft
        .ScaleWidth 23.1, msoFalse, msoScaleFromTopLeft
    End With
End With

End Sub

在VBa excel 2013中调整评论框图片大小

2 个答案: