插入照片與文件名

通配符我有這樣的代碼：插入照片與文件名

Sub InsertPhotos_Click() 
    Range("Photo1").Select 
    ActiveSheet.Pictures.Insert("U:\Trial\1.jpg").Select 
    Selection.ShapeRange.Height = 151.2 
    Selection.ShapeRange.IncrementLeft 27 
    Selection.ShapeRange.IncrementTop 3 
End Sub

我需要能夠來命名文件名1-XXXX，但不知道如何使用通配符。當文件名是1時，代碼做我想要的。任何幫助將是偉大的，謝謝！

來源

2016-07-13 Carrie

你是想重命名文件？或者你想獲得的其他文件遵循格式1-xxxx？ – Sgdva

我希望用戶能夠命名文件1-（文件名），例如一張近照。然後，我需要代碼來識別1-並選擇該文件，而不管是在「 - 」之後。我試過（「U：\ Trial \ 1-＆」*「。jpg」），但沒有成功。 – Carrie

這是行不通的？

Sub InsertPhotos_Click() 
Dim PhotoString As String 
    Range("Photo1").Select 
    PhotoString = Application.InputBox("Type text for picture", "Get Picture", Type:=2) 
    If PhotoString <> "" Then ' 1. If PhotoString <> "" 
    ActiveSheet.Pictures.Insert("U:\Trial\1-" & PhotoString & ".jpg").Select 
    Selection.ShapeRange.Height = 151.2 
    Selection.ShapeRange.IncrementLeft 27 
    Selection.ShapeRange.IncrementTop 3 
    End If ' 1. If PhotoString <> "" 
End Sub

來源

2016-07-13 21:01:33 Sgdva

是的，這是有效的，但我會插入10張照片，我希望他們都被命名爲1-（文件名）; 2-（文件名）;等我只是想要它拉文件的前兩個字符與通配符的文件。不知道如果可能... – Carrie

請解釋一下，首先你說過你想讓用戶能夠命名文件，現在你想讓它們自動命名？會是什麼文件名？（如果圖片命名爲1; 1-1？） – Sgdva

我有8個用戶命名這些文件。我只是想讓他們把他們的第一張照片命名爲1-（某物）。然後我想要代碼拉取以1-開頭的照片。他們都將被命名，但是每次的名稱都會有所不同，具體取決於照片的內容，除非他們都將從1開始。 – Carrie

插入照片與文件名

回答

相關問題