Downloading image and placing in cell.

[Raydr]

I've created a spreadsheet with several sheets for printing out employe
ID
badges.

Basically there's a picture, name, address, employee number and
barcode.

I currently create the barcode by going to this site:
http://www.idautomation.com/java/linearservlet.html

and then pasting the image into the ID.

Alternatively, I can go here:
http://tinyurl.com/4588y

Where XXXX is the four digit employee ID number.

What I'd like to do is this:

I want to enter their ID number in a field, and have the barcode cel
automatically fill with the proper barcode. Of course, this would onl
work from an internet connected PC, but that's not really an issue.

Thoughts

 

[Ivan F Moala]

This may help you get started

Sub GetBarCodeImage()
Dim BarCodeNumber As Integer

Const Url1
"http://ida.20after4.net/servlet/com.idautomation.linear.IDAutomationServlet?FORMAT=GIF&BARCODE="
Const Url2
"&BAR_HEIGHT=.5&CODE_TYPE=CODE128&X=0.03&CHECK_CHAR=Y&CHECK_CHARINTEXT=Y&CODE128_SET=0&ST=N"

BarCodeNumber = 1234
ActiveSheet.Pictures.Insert Url1 & BarCodeNumber & Url2

End Su