Macro to pull pictures from folder to cells

Try this..

Sub InsertPic()
Dim pic As String 'file path of pic
Dim myPicture As Picture 'embedded pic
Dim rng As Range 'range over which we will iterate
Dim cl As Range 'iterator

Set rng = Range("A1:A10") 'Change this to what range you need. this is the range where the pics are inserted into.
For Each cl In rng
    pic = cl.Offset(0, 1)

        Set myPicture = ActiveSheet.Pictures.Insert("C:\Documents and Settings\My Documents\My Pictures\" & pic & ".bmp") 'change this to the file path
        '
        With myPicture
            .ShapeRange.LockAspectRatio = msoFalse
            .Width = cl.Width
            .Height = cl.Height
            .Top = Rows(cl.Row).Top
            .Left = Columns(cl.Column).Left
        End With
        '

Next

End Sub

hope this helps

Is it possible for you to change the code .. i know nothing about writing code

file " C:\Documents and Settings\Admin\Desktop\Images For Stock List By Style # "
style #s are in row c6 - c70
pictures should be in b6-b70
size is 3.00x 3.85

would be great

all my pictures are jpg
folder name is " Images For Stock List By Style # "

I modified the code to your request...

Sub InsertPic()
Dim pic As String 'file path of pic
Dim myPicture As Picture 'embedded pic
Dim rng As Range 'range over which we will iterate
Dim cl As Range 'iterator

Set rng = Range("B6:B70") 'Change this to what range you need. this is the range where the pics are inserted into.
For Each cl In rng
    pic = cl.Offset(0, 1)

        Set myPicture = ActiveSheet.Pictures.Insert("C:\Documents and Settings\Admin\Desktop\Images For Stock List By Style # \" & pic & ".jpg") 'change this to the file path
        '
        With myPicture
            .ShapeRange.LockAspectRatio = msoFalse
            .Width = cl.Width
            .Height = cl.Height
            .Top = Rows(cl.Row).Top
            .Left = Columns(cl.Column).Left
        End With
        '

Next

End Sub

can I just copy and paste what you posted ..if not can you make it so I can do so
Thanks

Yes .. copy and paste into the sheet object.
once the workbook is open right click on the sheet tab and click on "View code" then paste into the window that opens.
save worksheet
go to excel and hit "ALT + F8 to bring up the macro run window
then highlight the macro and click on the options button
then you can assign a shortcut key to the macro.

Copy even the comments you made on the sheet?

its up to you .. i put the comments there so that you would know what part of the code does what. the comments will be ignored by the vba due to the single quote.

Im getting an error that says " 400 "

Can you upload your workbook so that i can debug the 400 error code?

how can I upload it?

https://www.dropbox.com/s/u2o5lys2j0...IST%20WIP.xlsm here is the dropbox link

Originally Posted by iowitz

https://www.dropbox.com/s/u2o5lys2j0...IST%20WIP.xlsm here is the dropbox link

I cant access this link. im at work and the security settings will not allow it.

In the Quick reply there is a button named "Go advanced" on the lower right. click on it.
then there is a button named "manage attachments" under attachment section. click on the button.
A new window will pop up . on the right side there will be a button named "Add files" click on it.
a small window will pop up click on "select files"

here is the file see attached thank you I need it done on all of the tabs

Try this ... let me know if it works for you.. the code was working for me..NEW STOCK LIST WIP.xlsm

Is there a difference btwn .jpg and .jpeg

Hi,

There is no difference between two... both are same...

JP(E)G - Joint Photographic Experts Group

Ok so what do I do about the error look at previous post

Picture1.png

Im getting a error than this pops up in yellow

So your pic files have the EXT. Jpeg ? if so just replace jpg with jpeg.

No they dont i was just curious but
im getting an error still Picture1.png

shouldnt it still fill the cells with one style #

when the error pops up what does it say ? also can you expand the window more so that you can see the entire yellow highlighted line?

Here ya go ... Picture1.jpgPicture2.png

Nope because it tries to fill the pic cell with all pics or it tries to combine the multiple style # into one #..