All that (OP's clock) confused me which at the time prevented me from
suggesting perhaps make use of the AlternativeText property, eg

With .Pictures.Insert(sFullPicturePath)
..name = "MyPicture"
' didn't test but might need
'.Shaperange.name = "MyPicture"
..Shaperange.Alternativetext = sFullPicturePath
End with

Msgbox Activesheet.shapes("MyPicture").AlternativeText

Regards,
Peter T

"Norman Jones" <normanjones@whereforartthou.com> wrote in message
news:uMG#2H87FHA.3388@TK2MSFTNGP11.phx.gbl...
> Hi John,
>
> I see that the question has not in fact been posed again.
>
> Because of an error in your clock setting, your question appears (for me)
at
> the top of other posts. It was this that caused me to assume, erroneously,
> that you had reposted your question.
>
> My apologies for this incorrect assumption.
>
> ---
> Regards,
> Norman
>
>
>
> "Norman Jones" <normanjones@whereforartthou.com> wrote in message
> news:uquYRD87FHA.1248@TK2MSFTNGP14.phx.gbl...
> > Hi John,
> >
> > See Bernie Dietrick's responses to your earlier formulation of this
> > question:
> >
> > http://tinyurl.com/8hu95
> >
> > ---
> > Regards,
> > Norman
> >
> >
> > "john" <john_black@cadig.com> wrote in message
> > news:uhItsv07FHA.740@TK2MSFTNGP11.phx.gbl...
> >>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
> >>
> >>
> >
> >
>
>