Hi John,

See Bernie Dietrick's responses to your earlier formulation of this
question:

http://tinyurl.com/8hu95

---
Regards,
Norman


"john" wrote in message
...
I used the following code to insert a picture into a xls file.

ActiveSheet.Pictures.Insert("C:\Documents and Settings\Administrator\My
Documents\My Pictures\0ead1e14.jpg")

But I want to get this inserted picture's original filename days later.
And
I want to export this inserted picture to a picture file by VBA code, not
by
copying and pasting. Can I do it by VBA code. I use the Name property of
the
inserted picture. But The property return "Picture 1" to me. How can I get
the original filename and export it by VBA code.


Best Regards
John Black