S
seantera
How can I make all of the comments on a single worksheet a different
font?
font?
You are using an out of date browser. It may not display this or other websites correctly.
You should upgrade or use an alternative browser.
You should upgrade or use an alternative browser.
K
Ken Johnson
Hi seantera,
This worked for me.
It changes all the sheet1 comment's font to Times Roman
Dim i As Long
For i = 1 To Sheet1.Comments.Count
Sheet1.Comments(i).Shape.TextFrame.Characters.Font.Name = "Times
Roman"
Next
End Sub
Ken Johnson
This worked for me.
It changes all the sheet1 comment's font to Times Roman
Dim i As Long
For i = 1 To Sheet1.Comments.Count
Sheet1.Comments(i).Shape.TextFrame.Characters.Font.Name = "Times
Roman"
Next
End Sub
Ken Johnson
K
Ken Johnson
Hi seantera,
Sorry, I didn't copy the macro heading, and the broken line could cause
a problem, so try...
Sub ChangeCommentFont()
Dim i As Long
For i = 1 To Sheet1.Comments.Count
Sheet1.Comments(i).Shape.TextFrame.Characters.Font.Name _
= "Times Roman"
Next
End Sub
Ken Johnson
Sorry, I didn't copy the macro heading, and the broken line could cause
a problem, so try...
Sub ChangeCommentFont()
Dim i As Long
For i = 1 To Sheet1.Comments.Count
Sheet1.Comments(i).Shape.TextFrame.Characters.Font.Name _
= "Times Roman"
Next
End Sub
Ken Johnson
K
Ken Johnson
Me again,
It would have been more sensible of me to have used ActiveSheet rather
than Sheet1, so try...
Sub ChangeCommentFont()
Dim i As Long
For i = 1 To ActiveSheet.Comments.Count
ActiveSheet.Comments(i).Shape.TextFrame.Characters.Font.Name _
= "Times Roman"
Next
End Sub
Ken Johnson
It would have been more sensible of me to have used ActiveSheet rather
than Sheet1, so try...
Sub ChangeCommentFont()
Dim i As Long
For i = 1 To ActiveSheet.Comments.Count
ActiveSheet.Comments(i).Shape.TextFrame.Characters.Font.Name _
= "Times Roman"
Next
End Sub
Ken Johnson