looping through cells

[kelly mort]

I wanted to loop through this code :

Sheet1.Image1. Picture = LoadPicture (fPath & "\" & Sheet1. Range ("B2") & ".jpg")
Sheet1.Image2. Picture = LoadPicture (fPath & "\" & Sheet1. Range ("B12") & ".jpg")
Sheet1.Image3. Picture = LoadPicture (fPath & "\" & Sheet1. Range ("B22") & ".jpg")
........ to 20 controls

So I tried the below:

For x = 0 To 90 Step 10
For i = 1 To 20
Sheet1.OLEObjects ("Image" & i).Object. Picture = LoadPicture (fPath & "\" & Sheet1. Range ("B" & x + 2) & ".jpg")
Next i
Next x

Then I had some funny results. Only one image filled all the controls. Can somebody pull me out?
Regards
Kelly

 

[shg]

  For i = 1 To 20
    With Sheet1
      .OLEObjects("Image" & i).Object.Picture = LoadPicture(fPath & "\" & .Cells(10 * i - 8, "B") & ".jpg")
    End With
  Next i

 

[kelly mort]

Oh okay thanks
Changed

LoadPicture(fPath & "" &

To

LoadPicture(fPath & "\" &

 

[shg]

Curious -- the path separator is in my post.

 

[kelly mort]

Curious -- the path separator is in my post.

Haha. I don't know why it did not show when I pasted it. One of those things.
Regards

 

[shg]

You're welcome.

 

[kelly mort]

  For i = 1 To 20
    With Sheet1
      .OLEObjects("Image" & i).Object.Picture = LoadPicture(fPath & "\" & .Cells(10 * i - 8, "B") & ".jpg")
    End With
  Next i

Hello,

I just created a challenge for myself. I have divided the IDs into 2: 10 on column B then another 10 on column F. They are not arranged in any order. They are randomly placed by a lookup formula. I did the division so I can get all 20 on one page when printed.

Is there a way the above can look at both columns ?

Regards
Kelly

 

[kelly mort]

Okay I have tried this and it seems to work. If there is a better way let me know. Thanks

For i = 1 To 20
    With Sheet1
      .OLEObjects("Image" & i).Object.Picture = LoadPicture(fPath & "\" & .Cells(10 * i - 8, "B") & ".jpg")
      .OLEObjects("Image" & i + 10).Object.Picture = LoadPicture(fPath & "\" & .Cells(10 * i - 8, "F") & ".jpg")
    End With