標題: [發問] excel-vba Image貼圖連動問題 [打印本頁]

---

作者: mybubble9987    時間: 2019-4-16 13:23     標題: excel-vba Image貼圖連動問題

[attach]30412[/attach]

各位好，在使用excel  vba功能時，遇到一些指令問題，不知道該如何設定，由於也是初學者，很多關鍵字不知道該如何搜尋相關指令，
想請各位幫忙看看這樣的設定需求該如何寫入指令比較恰當?

希望的需求格式類似圖片說明的，有textbox可以鍵入名稱，然後Image 圖片區可以顯示鍵入名稱的圖片，如:蘋果--圖顯示蘋果
但圖片檔案不是放在excel本身工作表中，而是放在外部某個資料夾...(所以資料夾需要設定路徑)大部分網上搜尋到的都是在工作表中參照某張圖，
但考慮未來資料越來越多圖片越來越多，希望是能夠放在外部的資料夾。而小視窗uesrform可以拿來做這樣的功能。

還麻煩各位有想法的話，能提供一點意見...萬分感謝
另外因為是剛接觸的初學者，所以很多指令還不懂，還請指教!謝謝

---

作者: mybubble9987    時間: 2019-4-26 11:12

本帖最後由 mybubble9987 於 2019-4-26 11:14 編輯

[attach]30471[/attach]可能我的問題太難懂~所以都沒有人願意回~~~
稍微改良之後~有做出相同功能的用法!!!!給大家參考!!!!
但是目前~還遇到一個問題~~~就是不知道要怎麼改掉~excel內的問題~
Private Sub load檔名()
Dim P As String
    P = ThisWorkbook.Path & "\TEST01\"
    ActiveSheet.UsedRange.Offset(1).Clear這行要怎麼改~才不會全部的表格內的東西都被刪掉
    Get_Picture P
End Sub
Private Sub Get_Picture(ByVal P As String)
    Dim Fs, F As Variant
    Set Fs = CreateObject("Scripting.FileSystemObject").GETFolder(P)
    With ActiveSheet
    For Each F In Fs.Files
        If F Like "*.jpg" Then '指定副檔名
            .Cells(Application.CountA(.[F:F]) + 1, "F") = F.Name
        End If
     Next
    End With
        For Each F In Fs.SubFolders
            On Error Resume Next
            Get_Picture F
        Next
End Sub

---

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