Default properties for comments and notes

Occasional Contributor

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.

3 Replies

@David Lambert Not by default. But you could use this simple macro:

 

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

 

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

that was helpful!  can you add to that macro to then edit note so I don't have to do that extra step to start typing?@Jan Karel Pieterse