Downloading image and placing in cell.
 

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 he
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

--
Rayd
-----------------------------------------------------------------------
Raydr's Profile: http://www.excelforum.com/member.php...fo&userid=1641
View this thread: http://www.excelforum.com/showthread.php?threadid=27782

Downloading image and placing in cell.
 

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_CHA R=Y&CHECK_CHARINTEXT=Y&CODE128_SET=0&ST=N"

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

End Su

--
Ivan F Moal

-----------------------------------------------------------------------
Ivan F Moala's Profile: http://www.excelforum.com/member.php...nfo&userid=195
View this thread: http://www.excelforum.com/showthread.php?threadid=27782