Add image as comment to active cell using vba excel

if you would like to select any image and add as a comment to activecell

Here is the code-


Sub test()
Dim s As String
s = Application.GetOpenFilename("Image Files (*.bmp;*.gif;*.jpg;*.jpeg)," & "*bmp;*gif;*.jpg;*.jpeg")
ActiveCell.AddComment.Text "akoul.blogspot.com"
ActiveCell.Comment.Shape.Fill.UserPicture s

End Sub


It will open a folder browse window.Choose any image and will add as comment to activecell.