コメントを常に表示する
広告
コメントは、コメントが設定されているセルの上にマウスが乗っていると表示されますが、マウスが乗っていない状態でも常に表示するように設定することが可能です。
コメントを常時表示するには、コメントを設定した後でCommnetオブジェクトを取得し、Commnetオブジェクトの「Visible」プロパティに「True」を設定します。
Dim range1 As Range Dim comment1 As Comment Set range1 = Range("A1") range1.AddComment Text:="コメント" Set comment1 = Range("A1").Comment commnet1.Visible = True
まとめて次のように記述しても構いません。
Range("A1").AddComment Text:="コメント" Range("A1").Comment.Visible = True
元のマウスが乗ったときだけコメントを表示するようにするには、同じ「Visible」プロパティに「False」を設定します。
サンプルプログラム
では簡単なサンプルで試してみましょう。
Sub テスト() Range("B2").AddComment Text:="コメント" Range("B2").Comment.Visible = True End Sub
上記マクロを実行すると次のようになります。
( Written by Tatsuo Ikura )
Profile

著者 / TATSUO IKURA
初心者~中級者の方を対象としたプログラミング方法や開発環境の構築の解説を行うサイトの運営を行っています。