|
コメント文を挿入、編集、表示、削除するマクロを作成する。 Sub 追加() Range("A2").AddComment Range("A2").Comment.Visible = False Range("A2").Comment.Text Text:="エラーです。" & Chr(10) & "" End Sub Range("A2").AddCommentでコメント追加。 Range("A2").Comment.Visible = Falseで通常非表示でマウスが重なったら表示。 Range("A2").Comment.Text Text:=""でコメント欄の内容を書く。 Sub 削除() Range("A2").ClearComments End Sub Range("A2").ClearCommentsでコメント削除。 難しかったのが下記。 コメント枠のサイズを指定してコメントを表示させる方法。 何度もエラーが出て困ったが何とかなった。 Sub コメント表示して追加() Range("A2").AddComment Range("A2").Comment.Visible = True Range("A2").Comment.Shape.Select True Range("A2").Comment.Text Text:="エラーです。" & Chr(10) & "" Selection.ShapeRange.ScaleWidth 0.74, msoFalse, msoScaleFromTopLeft Selection.ShapeRange.ScaleHeight 0.41, msoFalse, msoScaleFromTopLeft End Sub Range("A2").AddCommentでコメント追加。 Range("A2").Comment.Visible = Trueでコメントを常に表示。 Range("A2").Comment.Shape.Select Trueでコメントの中身を変更することを宣言。 Range("A2").Comment.Visible = Trueとしておかないとエラーが出る。 Range("A2").Comment.Text Text:="エラーです。" & Chr(10) & ""でテキスト内容の書き換え。 Selection.ShapeRange.ScaleWidth 0.74, msoFalse, msoScaleFromTopLeftでコメント欄の幅指定 Selection.ShapeRange.ScaleHeight 0.41, msoFalse, msoScaleFromTopLeftでコメント欄の高さ指定 以上でマクロでコメント欄を表示することが可能となった。 |