Default properties for comments and notes

%3CLINGO-SUB%20id%3D%22lingo-sub-391586%22%20slang%3D%22en-US%22%3EDefault%20properties%20for%20comments%20and%20notes%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-391586%22%20slang%3D%22en-US%22%3E%3CP%3EIs%20there%20a%20way%20to%20set%20default%20properties%20(format)%20for%20comments%20and%20notes%20such%20as%20font%2C%20font%20size%2C%20automatic%20sizing%20of%20note%2C%20etc.%20so%20I%20don't%20have%20to%20change%20these%20each%20time%20I%20add%20a%20note%20or%20comment.%3C%2FP%3E%3C%2FLINGO-BODY%3E%3CLINGO-LABS%20id%3D%22lingo-labs-391586%22%20slang%3D%22en-US%22%3E%3CLINGO-LABEL%3EExcel%3C%2FLINGO-LABEL%3E%3C%2FLINGO-LABS%3E%3CLINGO-SUB%20id%3D%22lingo-sub-391686%22%20slang%3D%22en-US%22%3ERe%3A%20Default%20properties%20for%20comments%20and%20notes%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-391686%22%20slang%3D%22en-US%22%3EAnd%20of%20course%20modify%20the%20code%20with%20the%20font%20name%20ans%20size%20you%20want...%3C%2FLINGO-BODY%3E%3CLINGO-SUB%20id%3D%22lingo-sub-391684%22%20slang%3D%22en-US%22%3ERe%3A%20Default%20properties%20for%20comments%20and%20notes%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-391684%22%20slang%3D%22en-US%22%3E%3CP%3E%3CA%20href%3D%22https%3A%2F%2Ftechcommunity.microsoft.com%2Ft5%2Fuser%2Fviewprofilepage%2Fuser-id%2F64084%22%20target%3D%22_blank%22%3E%40David%20Lambert%3C%2FA%3ENot%20by%20default.%20But%20you%20could%20use%20this%20simple%20macro%3A%3C%2FP%3E%0A%3CP%3E%26nbsp%3B%3C%2FP%3E%0A%3CPRE%3ESub%20AddOrFormatComment()%0A%20%20%20%20If%20ActiveCell.Comment%20Is%20Nothing%20Then%0A%20%20%20%20%20%20%20%20ActiveCell.AddComment%20%22%22%0A%20%20%20%20End%20If%0A%20%20%20%20With%20ActiveCell.Comment.Shape.TextFrame.Characters(1%2C%20ActiveCell.Comment.Shape.TextFrame.Characters.Count).Font%0A%20%20%20%20%20%20%20%20.Name%20%3D%20%22Arial%22%0A%20%20%20%20%20%20%20%20.FontStyle%20%3D%20%22Regular%22%0A%20%20%20%20%20%20%20%20.Size%20%3D%2012%0A%20%20%20%20%20%20%20%20.Strikethrough%20%3D%20False%0A%20%20%20%20%20%20%20%20.Superscript%20%3D%20False%0A%20%20%20%20%20%20%20%20.Subscript%20%3D%20False%0A%20%20%20%20%20%20%20%20.OutlineFont%20%3D%20False%0A%20%20%20%20%20%20%20%20.Shadow%20%3D%20False%0A%20%20%20%20%20%20%20%20.Underline%20%3D%20xlUnderlineStyleNone%0A%20%20%20%20%20%20%20%20.ColorIndex%20%3D%20xlAutomatic%0A%20%20%20%20End%20With%0AEnd%20Sub%3C%2FPRE%3E%0A%3CP%3E%3CFONT%20style%3D%22background-color%3A%20%23ffffff%3B%22%3E%26nbsp%3B%3C%2FFONT%3E%3C%2FP%3E%3C%2FLINGO-BODY%3E
Highlighted
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
Highlighted

@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

 

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