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

回答No.1

myRange · ベストアンサー

書式等の変更は、
先ず、追加したコメントを「表示」し、
表示した「コメント枠」を選択してから行いますが
マクロ記録ではそこら辺りが記録されないようですね。
で、●以下２行を追加。

'-------------------------------------------
Sub Macro1()
Range("A2").Select
Range("A2").AddComment
Range("A2").Comment.Visible = False
Range("A2").Comment.Text Text:="コメント" & Chr(10) & "今日は良いお天気ですね。"

'●ここでコメントを表示＆コメント枠を選択する

　　Range("A2").Comment.Visible = True
　　Range("A2").Comment.Shape.Select True

'▽次で実行エラーが起きる!?

Selection.ShapeRange.ScaleWidth 1.58, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 1.49, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid

'-------------------------------------------------------

■コメントに限らずマクロ記録ではたまにこういうことがあります。

以上です。

お礼

●以下２行を追加すること「実行エラー」…解消。
非力な私にはマクロ記録されない部分が有るのにはまいりました。
この度は早々の回答どうも有り難うございました。

回答No.2

imogasi

SelectionがA2を選択したままになっているようだ。
Comment　のShapeを掴んで下記のようにやるとうまく行くようだ。
この掴むというコードがマクロの記録で抜け落ちて入るようだ。
SelectionがA2を選択したままの証拠か？
下記の中で
With Selection.Comment.Shape
.ScaleWidth 3, msoFalse, msoScaleFromTopLeft
End With
でもうまく行くようだ。
ーー
Sub test04()
Range("A2").Select
Range("A2").ClearComments 'テストのため入れるもの
Range("A2").AddComment
Range("A2").Comment.Visible = True
Range("A2").Comment.Text Text:="コメント" & Chr(10) & "今日は良いお天気ですね。"
With Range("A2").Comment.Shape
.ScaleWidth 0.5, msoFalse, msoScaleFromTopLeft
End With
End Sub

お礼

非力ながら評価していて「掴む」の意味合いを何とか理解しました。
それと、次の書き方も試行錯誤の結果やっとの思いで成功しました。
With Selection.Comment.Shape
.ScaleWidth 3, msoFalse, msoScaleFromTopLeft
End With
お陰様でスッキリとした記述形式に改善できました。
この度は丁重な回答どうも有り難うございました。