Adjust size of comment

I need to adjust the size of comments to a certain pre-defined value, and for this a macro should be well suited, so I switched on the recorder while making the necessary steps. The result was as follows:

Sub Macro1()
    Range("A2").AddComment
    Range("A2").Comment.Visible = False
    Selection.ShapeRange.ScaleWidth 2.48, msoFalse, msoScaleFromTopLeft
    Selection.ShapeRange.ScaleHeight 4.34, msoFalse, msoScaleFromTopLeft
End Sub

But now when I try to run the macro on another cell I get a "Run-time error '438' Object doesn't support this property or method".

Which code will adjust the size of a comment?

NSV