Excel 2003 vba get picture as input

Giday mate

Have you tried

http://www.xcelfiles.com/VBA_Quick11.html

?

Cheers

Hello,

Thank you for the useful link.

I succeeded uploading image to cell comment.

I have 3 questions:
1. How can I verify that the .Comment.Shape.Fill.UserPicture is not empty ?
2. How can I get the image back into a variable ?
3. Is it possible to paste the image into cell (not comment) ?

Thank you for your help

Well, I'm not an expert in VBA but you should do some search in this site 'cause this site's the best to find answers.

Answer for question 1.
You can create buttons to open all comments to see if any comments have image and another button to close all comments

Create a button, insert new module in VBA windows and assign this macro to the button

Sub ShowSheetComments()
'shows all comments on the active sheet
Dim c As Comment

For Each c In ActiveSheet.Comments
  c.Visible = True
  c.Shape.Fill.ForeColor.SchemeColor = 5
  
Next

End Sub

Assign this macro to second button to close all comments

Sub CloseSheetComments()
'shows all comments on the active sheet
Dim c As Comment

For Each c In ActiveSheet.Comments
  c.Visible = False
Next

End Sub

Answer to question 3.

check this site

http://www.mrexcel.com/forum/showthread.php?t=257081

Cheers mate