返回列表 上一主題 發帖

[發問] VBA 插入指定的檔案圖片

fantersy

帖子
132 
主題
35 
精華
0 
積分
179 
點名
0  
作業系統
Windows 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2014-12-24 
最後登錄
2024-3-13 
1# 跳轉到 » 正序看帖
打印
tT
發表於 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

帖子
132 
主題
35 
精華
0 
積分
179 
點名
0  
作業系統
Windows 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2014-12-24 
最後登錄
2024-3-13 
2#
發表於 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

TOP

        靜思自在 : 一個人不怕錯，就怕不改過，改過並不難。
返回列表 上一主題