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.
Subscribe to:
Post Comments (Atom)
-
If you want to add a new menu on mouse right click "Workbook Navigation showing you the list of all open workbooks and worksheets in ea... -
Macro to Export Range in Json Format Option Explicit Sub export_in_json_format() Dim fs As Object Dim jsonfile Dim rangetoex...
How can you also set height and width using this as a start?
ReplyDelete@McCapo Please try these statements . See if it helps
ReplyDeleteActiveCell.Comment.Shape.Height = 100
ActiveCell.Comment.Shape.Width = 100