ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Discussion (Misc queries) (https://www.excelbanter.com/excel-discussion-misc-queries/)
-   -   Comment size (https://www.excelbanter.com/excel-discussion-misc-queries/52130-comment-size.html)

Don

Comment size
 
I'd like to change the comment size in excel, but do not want to use the
Properties - Appearance - Advanced - Item - Tooltip route.

I've seen this on Debra Dalgleish's site -
Sub CommentAddOrEditTNR()
'adds TimesNewRoman comment or positions
'cursor at end of existing comment text
Dim cmt As Comment
Set cmt = ActiveCell.Comment
If cmt Is Nothing Then
ActiveCell.AddComment text:=""
Set cmt = ActiveCell.Comment
With cmt.Shape.TextFrame.Characters.Font
.Name = "Times New Roman"
.Size = 11
.Bold = False
.ColorIndex = 0
End With
End If
SendKeys "%ie~"
End Sub

Can I put this in some kind of excel startup file so that all Excel files
that I create or edit will have these new comment settings? Thanks for any
comments.

Debra Dalgleish

Comment size
 
You could add the macro to your Personal.xls workbook, or another file
that you usually have open. Then, add a button to one of your toolbars,
and assign that macro to it.

When you want to insert a comment, click the toolbar button.


Don wrote:
I'd like to change the comment size in excel, but do not want to use the
Properties - Appearance - Advanced - Item - Tooltip route.

I've seen this on Debra Dalgleish's site -
Sub CommentAddOrEditTNR()
'adds TimesNewRoman comment or positions
'cursor at end of existing comment text
Dim cmt As Comment
Set cmt = ActiveCell.Comment
If cmt Is Nothing Then
ActiveCell.AddComment text:=""
Set cmt = ActiveCell.Comment
With cmt.Shape.TextFrame.Characters.Font
.Name = "Times New Roman"
.Size = 11
.Bold = False
.ColorIndex = 0
End With
End If
SendKeys "%ie~"
End Sub

Can I put this in some kind of excel startup file so that all Excel files
that I create or edit will have these new comment settings? Thanks for any
comments.



--
Debra Dalgleish
Excel FAQ, Tips & Book List
http://www.contextures.com/tiptech.html



All times are GMT +1. The time now is 12:34 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com