Default properties for comments and notes

Question

Is there a way to set default properties (format) for comments and notes such as font, font size, automatic sizing of note, etc. so I don't have to change these each time I add a note or comment.

jkpieterse · Answer

And of course modify the code with the font name ans size you want...

jkpieterse · Answer

David Lambert Not by default. But you could use this simple macro:
&nbsp;
Sub AddOrFormatComment()
    If ActiveCell.Comment Is Nothing Then
        ActiveCell.AddComment ""
    End If
    With ActiveCell.Comment.Shape.TextFrame.Characters(1, ActiveCell.Comment.Shape.TextFrame.Characters.Count).Font
        .Name = "Arial"
        .FontStyle = "Regular"
        .Size = 12
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
End Sub
&nbsp;

audiology · Answer

that was helpful!&nbsp; can you add to that macro to then edit note so I don't have to do that extra step to start typing?JKPieterse&nbsp;

Forum Discussion

Default properties for comments and notes

3 Replies

Resources