VB Help - Use Image url to insert image and resize (repeat 100 times)

[nikkibeak27]

Hey, Please help a NON coder,

I need a VB code that does the following;

Sheet 1
Cell C10 - Contains an image url (this can either be a file location or web address)
I need to copy that url and use that to insert picture in cell J10
Once the image is in cell J10 the image width needs to be adjusted to 7cm

then the same process needs to happen for the next row (C11 / J11)

this process must continue for a total of 100 rows i.e. stop at row C110/J110)

I would really appreciate any help !

 

[Repush]

try

Sub InsertPic()
    Set MyRange = Application.Selection
    For Each c In MyRange
        picStr = c.Value
        c.Offset(0, 1).Select
        Set p = ActiveSheet.Pictures.Insert(picStr)
        p.Width = Int(7 * 26.996626)
        Set p = Nothing
    Next c
End Sub

Select image url's and run . .

 

[nikkibeak27]

Hi,

when I try to run this it takes me to debugging mode with the below section highlighted in yellow

Set p = ActiveSheet.Pictures.Insert(picStr)

stupid q ... is there a section that specifies that the image must be loaded in column J?

Thanks

 

[Repush]

what was the error-message?
NB I tested only local url . .
NB 2 . . from C to J : use c.offset(0,7) tot put it in the right column

 

[nikkibeak27]

runtime error 1004

note: not all pictures will be available so it will need to do something like on error move to next (gawd I really have NO idea what I'm talking about)

 

[nikkibeak27]

oh and also need screen updating????

 

[nikkibeak27]

uhmmm ... on error, could I specify a specific url to be used? then move to next row
It would point to a generic pic saying image not available.

 

[Repush]

i'm not into Error-handlers . . . sorry

test it with proven filenames (i.e. c:\users\Nikki\pic.jpg ) . .

 

[Repush]

oh and also need screen updating????

not if you did'nt turn it off

 

[Repush]

uhmmm ... on error, could I specify a specific url to be used? then move to next row
It would point to a generic pic saying image not available.

picStr = "{path}\default_picture.jpg"