Home

Default properties for comments and notes

David Lambert
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.

2 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...