Insert a picture in specific cells in Excel

[lena1342]

Hi Everyone!

I tried to insert a picture in specific cells and I have coded a small VBA for Excel 2007. Unfortunately the macro only opens and inserts a picture in the active sheet but it should add the picture in cell B3, H4 and L6 in this sheet.

Could you please help me to fix the problem.

thx a lot!

 
Sub Macro1()
 
Dim Pict
Dim ImgFileFormat As String
Dim PictCell As Range
Dim Ans As Integer
 
ImgFileFormat = "Image Files (*.bmp),others, tif (*.tif),*.tif, jpg (*.jpg),*.jpg"
 
GetPict:
Pict = Application.GetOpenFilename(ImgFileFormat)
If Pict = False Then End
 
ActiveSheet.Pictures.Insert(Pict).Select
 
End Sub
 
 

[Dököll]

Sending over to Access forum for a closer look; have you tried searching beforehand, might have been something posted on this, give that a try while you wait if need be.

In a bit, good luck!

[Delerna]

Here is the code I got

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 9/11/2009 by Graham
'
 
'
    Range("G13").Select
    ActiveSheet.Pictures.Insert( _
        "C:\Documents and Settings\Graham\My Documents\My Pictures\barb3.png").Select
End Sub
 

HINT
I always find that if I am usure how to do something using VBA within Word or excel, then

1) record a new macro
2) perform the steps that I want my code to do
3) stop recording the macro
4) Go check the code the macro recorder generated and adjust it to suit my needs

[MMcCarthy]

OK the short answer to your question is you can't insert a picture into a specific cell in Excel. There is a facility to add a background image to a comment in Excel 2007 but not sure offhand how you would code this.

Your best option is to position your image on the sheet after inserting it I think.

Mary

[Delerna]

msquared is absolutely correct

The only thing the code I posted does is position the top left corner of the picture at the top left corner of the selected cell. It's not actually in the cell.