標題: [發問] VBA 插入指定的檔案圖片 [打印本頁]

---

作者: fantersy    時間: 2016-4-25 11:28     標題: VBA 插入指定的檔案圖片

各位大大好
小弟有一事想請教

小弟已將圖片的檔名設定跟產品型號一樣
另外在A2的儲存格使用下拉選單選擇產品型號
希望在Excel表上能在篩選好型號之後
執行巨集
就能在固定的位置顯示該產品的照片
請問語法該如何撰寫??
下列是小弟寫的~但都是錯誤
Sub 巨集1()

Dim A, fd, fs

A = Range("A2").Value             '<-----讀取產品型號
fd = "C:\Users\rd-2\Downloads\產品照片\"      '<-----圖片的存放位置
fs = Dir(fd & "*.jpg")      '<-----副檔名為JPG



Range("D25").Select        '<-----指定在固定位置
    ActiveSheet.Pictures.Insert("A1&A&A2"). _         '<-----插入圖片
        Select
                                

End Sub

---

作者: fantersy    時間: 2016-4-25 12:01

感謝大大!!
小弟已自行解決
若有更好的方式~再麻煩提出討論

Dim A As String  '


A = Application.IfError(Application.VLookup(Cells(2, 1), Sheets("清單").Range("A:B"), 2, False), "")

Dim x As String
x = Dir("C:\Users\rd-2\Downloads\產品照片\" & A & ".jpg") '偵測圖片是否存在
If x <> "" Then

         Set p = ActiveSheet.Pictures.Insert("C:\Users\rd-2\Downloads\產品照片\" & A & ".jpg")  '讀取圖片
         Set c = Range("A18") '圖片丟到所指定欄位

    Else
   
End If

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)