adding cell comment via VBA (bold font?)
 

Hi,

Is there a way to make part of a cell comment bold (user name in particular)
when a comment is being added via VBA?

Thanks,
--
______
Regards,
Greg

adding cell comment via VBA (bold font?)
 

To change the comment text to bold:
ActiveCell.Comment.Shape.TextFrame.Characters.Font .Bold = True


"Greg" wrote:

Hi,

Is there a way to make part of a cell comment bold (user name in particular)
when a comment is being added via VBA?

Thanks,
--
______
Regards,
Greg

adding cell comment via VBA (bold font?)
 

how about only part of the comment?

for instant:
John Smith:
this cell has a comment


--
______
Regards,
Greg


"Anony" wrote:

To change the comment text to bold:
ActiveCell.Comment.Shape.TextFrame.Characters.Font .Bold = True


"Greg" wrote:

Hi,

Is there a way to make part of a cell comment bold (user name in particular)
when a comment is being added via VBA?

Thanks,
--
______
Regards,
Greg

adding cell comment via VBA (bold font?)
 

I'm using the Application.UserName here, but the principle's the same. Go by
character lengths:

Sub FormatCmt()
Dim Cmt As Comment
Dim YourName As String
Dim Text As String

Text = "Here's your comment."
With ActiveCell
YourName = Application.UserName & ":" & vbLf
Set Cmt = .AddComment(YourName & Text)
With Cmt.Shape.TextFrame
.Characters.Font.Bold = False
.Characters(1, Len(YourName)).Font.Bold = True
End With
End With
End Sub

-----------------
Cheers,
Anony