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!

Expand|Select|Wrap|Line Numbers

  
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

Expand|Select|Wrap|Line Numbers

 
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

msquared

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.

Insert a picture in specific cells in Excel

re: Insert a picture in specific cells in Excel

re: Insert a picture in specific cells in Excel

re: Insert a picture in specific cells in Excel

re: Insert a picture in specific cells in Excel

Similar Microsoft Access / VBA bytes

/bytes/development

/bytes/it

/bytes/about