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