| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Formatting a comment by code
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") -- Traa Dy Liooar Jock |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Formatting a comment by code
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 Jock wrote: 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") -- Traa Dy Liooar Jock -- Dave Peterson |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Formatting a comment by code
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. -- Traa Dy Liooar Jock "Dave Peterson" wrote: 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 Jock wrote: 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") -- Traa Dy Liooar Jock -- Dave Peterson |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Formatting a comment by code
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" wrote in message ... 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. -- Traa Dy Liooar Jock "Dave Peterson" wrote: 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 Jock wrote: 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") -- Traa Dy Liooar Jock -- Dave Peterson |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Formatting a comment by code
Thanks to Patrick and Dave
-- Traa Dy Liooar Jock "Patrick Molloy" wrote: 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" wrote in message ... 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. -- Traa Dy Liooar Jock "Dave Peterson" wrote: 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 Jock wrote: 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") -- Traa Dy Liooar Jock -- Dave Peterson |
|
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Formatting a comment by code
"Traa Dy Liooar " ??
:) "Jock" wrote in message ... Thanks to Patrick and Dave -- Traa Dy Liooar Jock "Patrick Molloy" wrote: 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" wrote in message ... 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. -- Traa Dy Liooar Jock "Dave Peterson" wrote: 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 Jock wrote: 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") -- Traa Dy Liooar Jock -- Dave Peterson |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Formatting a comment using code | Excel Programming | |||
| Excel comment formatting | Excel Discussion (Misc queries) | |||
| Preserving Comment Box Formatting | Excel Programming | |||
| Code to add comment box | Excel Programming | |||
| Formatting certain text within a comment | Excel Programming | |||
Linear Mode
