Word Vba根據文件在文件中的位置獲取圖片文件

我想要做的不僅僅是從文件中抓取圖片。我需要這樣做，以便一個人可以上傳一張6張照片的文件夾，而這個宏將做它的事情。無論文件名是什麼。有沒有像這樣的索引值？我可以通過他們的位置定義圖片嗎？Word Vba根據文件在文件中的位置獲取圖片文件

我想到的是：

Sub PicturePull() 
    Dim Pic as Integer 
    DimPicName as String 
    PicName = >>?!?!?!?!<< 
    Pic = 1 
    Do while Pic < 7 
     Selection.InlineShapes.AddPicture FileName:= _ 
      "\\agcfp01\users\cjones\desktop\Russells Template\Thermography Photos\Real\" & PicName _ 
      , LinkToFile:=False, SaveWithDocument:=True 
     Pic= Pic + 1 
    Loop 
End Sub

來源

2014-02-11 C Jones

你可以在給定的位置使用'迪爾（FOLDERPATH和「*」）'循環，雖然所有文件。如果你知道文件的預期類型，那麼你可以使用（例如）「* .jpg」而不是* –

這會替換'.AddPicture'或'PicName'嗎？ –

我會發布一些建議的代碼 - 給我幾分鐘... –

這爲我工作：

Sub PicturePull() 
    Dim SourceFolder As String 
    Dim i As Integer, PicName As String 

    SourceFolder = "C:\Users\ggggg\Desktop\Pictures\" 

    i = 0 

    PicName = Dir(SourceFolder & "*") 
    'or (eg) 
    'PicName = Dir(SourceFolder & "*.jpg") 'jpg only... 

    Do While Len(PicName) > 0 
     i = i + 1 
     If i > 6 Then Exit Do 
     Selection.InlineShapes.AddPicture FileName:=SourceFolder & PicName, _ 
           LinkToFile:=False, SaveWithDocument:=True 
     PicName = Dir() 
    Loop 
End Sub

來源

2014-02-11 04:55:04

美麗！正是醫生要求的感謝！ –

突然間，這只是複製每秒的圖像，想法？ –

適合我。你有沒有做任何改變？ –

Word Vba根據文件在文件中的位置獲取圖片文件

回答

相關問題