Comment Formatting


This code can be use to Format a Comment , you can make your excel cell comment bit beautiful by using below  code
 Image
Sub FormatComment()
 
    Dim rngRange As Range
    Dim rngCell As Range
    Dim objCom As Comment
    
    Set rngRange= Range(“rngRange”)
    For Each rngCell In rngRange
    rngCell.Comment.Delete
        Set objCom = rngCell.AddComment
        With objCom
            With .Shape
                .AutoShapeType = 5
                .Fill.ForeColor.RGB = RGB(120, 120, 120)
                .Fill.UserPicture “C:\Users\XL_LOVER\Desktop\546724.jpg”
                .Height = 100
                .Width = 100
            End With
        End With
    Next rngCell
     
End Sub
 
You can download the .xlsm from here
Rajan.

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s