Home

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
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...
Related Conversations
Stable version of Edge insider browser
HotCakeX in Discussions on
35 Replies
flashing a white screen while open new tab
cntvertex in Discussions on
13 Replies
Tabs and Dark Mode
cjc2112 in Discussions on
22 Replies
How to Prevent Teams from Auto-Launch
chenrylee in Microsoft Teams on
28 Replies