Excel-VBA コメントの書式設定
Excel-VBA コメントの書式設定
コメントの書式設定をExcel-VBAで定義したい。
従い「マクロの記録」を実行して下記のソースコードを取得しました。
これを実行すると次の実行エラーが発生しました!?
★正常に動作させるソースコードの事例をいただければ幸いです。
ご指導よろしくお願いいたします。
実行時エラー'438'
オブジェクトは、このプロパティまたはメソッドをサポートしていません。
Sub Macro1()
' 処理:マクロの記録
' 目的:「コメントの挿入」と「コメントの書式設定」をする。
Range("A2").Select
Range("A2").AddComment
Range("A2").Comment.Visible = False
Range("A2").Comment.Text Text:="コメント" & Chr(10) & "今日は良いお天気ですね。"
'▽次で実行エラーが起きる!?
Selection.ShapeRange.ScaleWidth 1.58, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 1.49, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 9
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 0.75
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.ForeColor.RGB = RGB(0, 0, 0)
Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Height = 141.75
Selection.ShapeRange.Width = 283.5
Range("A1").Select
End Sub
お礼
回答ありがとうございます。 「Comment.Shape」を使えばコメントの高さと幅を設定できるんですね。 ありがとうございました。