Update A Url Image

S

SEAN DI''''ANNO

Dim URL As String
URL = Worksheets("Sheet1").Range("B4").Value
Range("C5").Select
ActiveSheet.Pictures.Insert(URL).Select

Morning, I found the above code on this forum and it works great but I
wonder if it can be modifed. I have a spreadhsheet which asks for a Product
code, when entered another cell changes (using a vlookup) be the URL image of
the product. Using the above code, it displays the URL image which is great.
However, when the product code is changes again, it just inserts another
picture rather than update the existing one. How can I have an object set to
the URL reference so that it can updated everytime the product code is
changed.
 
C

Charlotte E.

Ups, didn't read your question properly at first - sorry :)

You'll of casue has to delete the current picture first, before inserting a
new one...
 
S

SEAN DI''''ANNO

...Which is my problem Charlotte. if the product No is changed several
times, a new picture is inserted each time with a new name so I was unsure
how to delete teh existing one if there is one. I was trying to have a
picture object already and then just update its URL property but don't know
how to do this. Can you help?
 
C

Charlotte E.

Sorry, I'm a little slow today :)


If you don't have any other pictures, figures or charts on the spreadsheet,
the easiest way is just to put...

ActiveSheet.DrawingObjects.Delete

....before inserting the picture, so your you have these lines in your code:

ActiveSheet.DrawingObjects.Delete
ActiveSheet.Pictures.Insert(URL).Select


BR,
 
S

SEAN DI''''ANNO

Thats great Charlotte and answers my original question. Just one more
question if I may. How do I insert the picture object in a specific position?
 
C

Charlotte E.

How do I insert the picture object in a specific position?

Not sure what you mean?

Don't you do that with...

Range("C5").Select

...to select the picture to be inserted into cell C5?

Or, what do you mean?


CE
 
Top