Excel - A Macro to automatically insert image in a Comment Box

Latest update on June 6, 2012 at 11:39 AM by jak58 .

Issue
Solution

Issue

How to create a macro to automatically insert a backgroung image for the comment box, under Excel?

Solution

Here's an example:

Sub Img_in_Commentbox()  
With Application.FileDialog(msoFileDialogFilePicker)  
         .AllowMultiSelect = False          'Only one file   
         .InitialFileName = CurDir         'directory to open the window  
         .Filters.Clear                    'Cancel the filter  
         .Filters.Add Description:="Images", Extensions:="*.jpg", Position:=1  
         .Title = "Choose image"  
      
         If .Show = -1 Then TheFile = .SelectedItems(1) Else TheFile = 0  
    End With  
'No file selected  
If TheFile = 0 Then  
MsgBox ("No image selected")  
Exit Sub  
End If  
Range("A1").AddComment  
    Range("A1").Comment.Visible = True  
[A1].Comment.Shape.Fill.UserPicture TheFile  
End Sub

Add in A1 (re-adapt to your needs) a comment box with the image selected

Excel - A Macro to automatically insert image in a Comment Box
How to transfer data from one excel workbook to another automatically using macro - How-To - Excel
Excel: Sample Macro to Insert Multiple Rows - How-To - Excel
Excel - Running Macro Automatically - How-To - Excel
Excel - A macro to perform the automatic numbering of invoices - How-To - Excel
How to Insert an Image into an Excel Comment Box - How-To - Excel

This document, titled « Excel - A Macro to automatically insert image in a Comment Box », is available under the Creative Commons license. Any copy, reuse, or modification of the content should be sufficiently credited to CCM (ccm.net).

Outlook - Show week numbers

How to use text value in cell as criteria

Issue

Solution

Subscribe To Our Newsletter!