Customised Cell Comments
This is a small piece of code showing how to customise your cell comments to make it look better. The code works fine in Excel 2003. Some R&D is required to find out why font color applied in Excel 2007 is not correct.
To make it work in Excel 2007 use ColorIndex instead of Color.
Sub ModifyCellComment() Dim cmt As Comment Dim shp As Shape Set cmt = Range("rngModified").Comment Set shp = cmt.Shape With shp With .TextFrame.Characters.Font .Size = Range("rngFormat").Font.Size .Bold = Range("rngFormat").Font.Bold .Name = Range("rngFormat").Font.Name .Color = Range("rngFormat").Font.Color End With .Fill.ForeColor.RGB = Range("rngFormat").Interior.Color 'Color of first character of comment .TextFrame.Characters(1, 1).Font.Color = Range("rngFirstChar").Interior.Color .Fill.Solid End With Set cmt = Nothing Set shp = Nothing End Sub
Attachment | Size |
---|---|
Comments.xls | 40.5 KB |
»
- Vishesh's blog
- Login or register to post comments
- 7454 reads
Recent comments
5 years 36 weeks ago
6 years 22 weeks ago
6 years 34 weeks ago
6 years 37 weeks ago
6 years 38 weeks ago
6 years 43 weeks ago
6 years 52 weeks ago
7 years 2 days ago
7 years 3 days ago
7 years 3 days ago