Can Someone Tell Me If This Should Work Please

[rockyw]

I found this insert macro but I cannot get it to work.

Sub InsertPictures()

Dim row As Long

Dim picPath As String

Dim Picture As Object



row = 1



On Error Resume Next



While Cells(row, 1) <> ""

  Cells(row, 3).Select

  

  ' just guess what type of picture it is: .jpg or .gif

  picPath = Cells(row, 2) & Cells(row, 1) & ".gif"

  ActiveSheet.Pictures.Insert(picPath).Select

  picPath = Cells(row, 2) & Cells(row, 1) & ".jpg"

  ActiveSheet.Pictures.Insert(picPath).Select

  

  Set Picture = Selection

  'set cell height to picture size

  Picture.Top = Picture.TopLeftCell.Top

  Picture.Left = Picture.TopLeftCell.Left

  Picture.TopLeftCell.EntireRow.RowHeight = Picture.Height

   row = row + 1

Wend

End Sub

The instructions said...
Column A = imagename (AL-100Y)
Column B = imagepath (c:vonnieimages)
Column C = place to insert image
Image extension can be jpg or gif

I put in column A 01
In column B C:Pictures
I can not get this to work. Can someone tell me what might be wrong? Do I need more in A and B. Thanks

 

[tweedle]

Try a "\" at the end of picture path:

In column B C:\Pictures\


Edit: Need another after C:

 

[rockyw]

Thanks for the help, this picture idea is killing me. I have ..
A is 01"\"
B is C:\Pictures\
I see the macro run and change to column C but it does not insert the image. I have a folder in C named Pictures and 5 images named 01 thru 05. Thanks again for the help

 

[rockyw]

tweedle Sorry, I got it to work but the image comes into column A and B, I thought it would come in C? And I thought I could edit from there to add more rows. Thanks

 

[tweedle]

Lets do A1 as just 01

B1 as C:\Pictures\

so you should end up with

C:\Pictures\01.gif
and
C:\Pictures\01.jpg

 

[rockyw]

OH! and if I bring two or more in they stack on top each other. Is there a code that works with pictures? Thanks

 

[tweedle]

NP

to push it over to C
Replace:

Picture.Left = Picture.TopLeftCell.Left

With :

Picture.Left = Cells(Row, 3).Left

To control the top use:

Picture.Top = Cells(Row, 3).Top

 

[tweedle]

do you have an entire directory of pictures you want to import without listing every picture in excel?

 

[rockyw]

That's great! I can make the 3 a 5 and make a new row, and so on. Can I ask one more question? Is there a way to skip a row in between, like for a name? I was asked if I can make a program for all the emplyees, this will make it a LOT faster. Thnaks

 

[rockyw]

Yes I do, I will have 300+