Saturday, July 16, 2011

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.
at
Labels:

2 comments:

  1. McCapoMarch 23, 2012 at 3:05 PM

    How can you also set height and width using this as a start?

    ReplyDelete
  2. Excel VBA CodebaseMarch 27, 2012 at 9:30 AM

    @McCapo Please try these statements . See if it helps

    ActiveCell.Comment.Shape.Height = 100
    ActiveCell.Comment.Shape.Width = 100

    ReplyDelete

Subscribe to: Post Comments (Atom)

Import data from SQL

Macro to import data from SQL using ADO connection string: Sub Import_data_from_SQL() ' Tools -> References -> Microsoft Active...

  • Export Range in Json Format
    Macro to Export Range in Json Format Option Explicit Sub export_in_json_format()     Dim fs As Object     Dim jsonfile     Dim rangetoex...
  • Running SQL Queries within Excel Environment
    If you want to run SQL queries within Excel environment without  connecting to any database, you can do it with creating the ADODB   conn...