|
マクロの記録を使ってコメントの挿入を行ったところ下記のようになりました。(コメントを表示してからそのサイズを変えました)
Sub Macro2()
Range("E16").AddComment
Range("E16").Comment.Visible = False
Range("E16").Comment.Text Text:="fk:" & Chr(10) & ""
Selection.ShapeRange.ScaleWidth 2.27, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 2.87, msoFalse, msoScaleFromTopLeft
Range("E16").Comment.Shape.Select True
Range("E16").Comment.Text Text:="fk:" & Chr(10) & "ddd"
Range("E16").Select
End Sub
しかし、このマクロを実行すると
「オブジェクトはこのプロパティまたはメソッドをサポートしていません」のエラーが出て
Selection.ShapeRange.ScaleWidth 2.27, msoFalse, msoScaleFromTopLeft
の行で止まってしまいます。
コメントのシートを大きく表示するにはどうすればよいのでしょうか?
どなたかよろしくご教授お願い致します
|
|