Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Can I get the inserted picture's original filename.
John,
As long as you are using pictures from the same folder, you can do something like this: the first one inserts the file, the second one tells you its name (though it must be selected) Dim myName As String Dim myPicName As String Const myPath As String = "C:\Documents and Settings\DEITBE\My Documents\My Pictures\" Sub InsertPicture() myName = "0ead1e14.jpg" ActiveSheet.Pictures.Insert(myPath & myName).Select 'get rid of spaces and periods, illegal characters in picture names myPicName = Replace(Replace(myName, ".", "xxx"), " ", "qqq") MsgBox myPicName End Sub Sub WhatFileNameIsPicture() Selection.Name = myPicName MsgBox myPath & Replace(Replace(Selection.Name, "qxq", "\"), "xxx", ".") End Sub HTH, Bernie MS Excel MVP "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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Can I get the inserted picture's original filename.
John,
Someday I'll figure out which version to post..... this version has your path, not mine ;-) Dim myName As String Dim myPicName As String Const myPath As String = "C:\Documents and Settings\Administrator\My Documents\My Pictures\" Sub InsertPicture() myName = "0ead1e14.jpg" ActiveSheet.Pictures.Insert(myPath & myName).Select 'get rid of spaces and periods, illegal characters in picture names myPicName = Replace(Replace(myName, ".", "xxx"), " ", "qqq") MsgBox myPicName End Sub Sub WhatFileNameIsPicture() Selection.Name = myPicName MsgBox myPath & Replace(Replace(Selection.Name, "qxq", "\"), "xxx", ".") End Sub HTH, Bernie MS Excel MVP "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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Can I get the inserted picture's original filename.
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 |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Can I get the inserted picture's original filename.
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" wrote in message ... 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 |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Can I get the inserted picture's original filename.
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 |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
Can I get the inserted picture's original filename.
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" wrote in message ... 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" wrote in message ... 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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Cell("filename") doesn't update to new filename when do save as. | Excel Worksheet Functions | |||
set filename to <filename-date on open | Excel Worksheet Functions | |||
Auto save replaced my original file and now I need the original? | Excel Discussion (Misc queries) | |||
Inserted Pictures Do Appear | Excel Discussion (Misc queries) | |||
Saving filename same as import filename | Excel Programming |