Formatting a comment by code

  • Thread starter Thread starter Jock
  • Start date Start date
J

Jock

How can I apply bold formatting to the date part of the following code?
Target.Offset(0, 2).AddComment UserName() & " - AoS due by: " &
Format(strTemp, "dd/mm/yy")
 
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)

Dim strTemp As Date

If Target.Cells.Count > 1 Then
Exit Sub
End If

If Intersect(Target, Me.Range("A:A")) Is Nothing Then
Exit Sub
End If

strTemp = Date

With Target.Offset(0, 2)
If .Comment Is Nothing Then
'do nothing
Else
.Comment.Delete
End If

.AddComment Application.UserName & " - AoS due by: " _
& Format(strTemp, "dd/mm/yy")

.Comment.Shape.TextFrame _
.Characters(Len(.Comment.Text) - 7, 8).Font.Bold = True

End With

End Sub
 
Hi Dave,
Thanks for your code.
As the snippet of code I placed in my thread is only a very small part of a
bigger picture, I can't replace mine with your example.
I have tried to add the line
..Comment.Shape.TextFame.... in various guises to my code however nothing
goes bold in the comment.
Thanks for trying though.
 
all you needed to do was add a line

below this:
Target.Offset(0, 2).AddComment UserName() & " - AoS due by: " &
Format(strTemp, "dd/mm/yy")
add Dave Peterson's code:
target.Offset(0, 2).Comment.Shape.TextFrame _
.Characters(Len(target.Offset(0, 2).Comment.Text) - 7,
8).Font.Bold = True


Jock said:
Hi Dave,
Thanks for your code.
As the snippet of code I placed in my thread is only a very small part of
a
bigger picture, I can't replace mine with your example.
I have tried to add the line
.Comment.Shape.TextFame.... in various guises to my code however nothing
goes bold in the comment.
Thanks for trying though.
Click to expand...
 
Back
Top