返回列表 上一主題 發帖

[發問] excel-vba Image貼圖連動問題

mybubble9987

帖子
10 
主題
2 
精華
0 
積分
12 
點名
0  
作業系統
Win7 
軟體版本
Office2013 
閱讀權限
10 
性別
女 
註冊時間
2019-4-13 
最後登錄
2021-10-15 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2019-4-16 13:23 | 只看該作者

[發問] excel-vba Image貼圖連動問題

Image, textbox


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

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

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

mybubble9987

帖子
10 
主題
2 
精華
0 
積分
12 
點名
0  
作業系統
Win7 
軟體版本
Office2013 
閱讀權限
10 
性別
女 
註冊時間
2019-4-13 
最後登錄
2021-10-15 
2#
發表於 2019-4-26 11:12 | 只看該作者
本帖最後由 mybubble9987 於 2019-4-26 11:14 編輯

test01.rar (40.02 KB) 可能我的問題太難懂~所以都沒有人願意回~~~
稍微改良之後~有做出相同功能的用法!!!!給大家參考!!!!
但是目前~還遇到一個問題~~~就是不知道要怎麼改掉~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
SofyShih

TOP

        靜思自在 : 做該做的事是智慧，做不該做的事是愚癡。
返回列表 上一主題