Adding picture into activesheet shapes

[baha17]

Hi Everyone,
I a folder with 200 bmp picture and 200 image shape in sheet1.All images were named as Image1,Image2.... etc. now I would like to insert the picture into those image shapes like, for image1 load ...1.bmp, for image2 load ....2.bmp and so on.
I know how to add pictures if that images in the user form. But adding pictures to activesheet shapes gives me an error all the time. So far my code is below
'____
For i = 1 To 18
On Error Resume Next
ActiveSheet.Shapes("Image" & i).Picture = LoadPicture(ThisWorkbook.Path & "\Pictures\" & i & ".BMP")
Next i
'________

But why it's not working any idea?
Thanks in advance
baha

 

[p45cal]

not 100% sure but is it this?:

 ActiveSheet.Shapes("Image" & i).Fill.UserPicture ThisWorkbook.Path & "\Pictures\" & i & ".BMP"

 

[baha17]

Thanks for the reply p45cal but it gives "out of memory" error.
any thoughts?
Baha

 

[MickG]

Try something like this:-

ActiveSheet.Shapes("Image" & i).OLEFormat.Object.Object.Picture = LoadPicture(ThisWorkbook.Path & "\Pictures\" & i & ".BMP")

 

[p45cal]

Thanks for the reply p45cal but it gives "out of memory" error.
any thoughts?
Baha

What version of Excel are you using?
Could you record a macro of you doing this manually, and manipulating the image shapes a bit. This will give a clue as to what these image shapes actually are.

How did you get them onto the sheet in the first place?

 

[baha17]

Hi,
I am using excel 2003 and 2007 at work but at home I am using2010.I add them into sheet1 at the first place.The reason is I have 250 client picture which all named as 1 to 250. Bmp file. Now I wanted to create a web page which the users can see the client picture on one web page.I try to make the webpage in word at the first time but it is too much work to do one by one.I could not write the macro for that.so that I was thinking to place 250 image shape into sheet1 but insertingpicture one by one is too much job.I admit that. Way is not the smartest but any better solution?
Bah

 

[p45cal]

Could you record a macro of you doing this manually, and manipulating the image shapes a bit. This will give a clue as to what these image shapes actually are.

 

[baha17]

Hi p45cal
Sorry I did not see the second one at first.
ActiveSheet.Shapes("Image" & i).OLEFormat.Object.Object.Picture = _ LoadPicture(ThisWorkbook.Path & "\Pictures\" & i & ".BMP")

that one works perfectly well.
Thank you for your time. Believe me this example is one of the kind. Coz I could not find any code before on net.
Have a good day
Baha