xgirlxs

如題

請教各位前輩知道語法該怎麼寫嗎？

xgirlxs

如題

請教各位前輩知道語法該怎麼寫嗎？

資料表有中其中一個欄位是貼圖片

下載 (20.57 KB)

2016-4-22 13:44

查詢後，會帶出相關的資訊履歷

下載 (54.04 KB)

2016-4-22 13:44

jackyq

請大大自行依樣畫葫蘆
http://snipplr.com/view/54755/

匯出存圖檔後 ,  再用  LoadPicture( ) 把它讀進來
userform1.Image1.Picture = LoadPicture(剛剛匯出的圖檔路徑)

lpk187

回復 2# xgirlxs


    請參考http://forum.twbts.com/viewthrea ... %D7%A4J%B9%CF%A4%F9

xgirlxs

回復 3# jackyq


    謝謝您的回復...
    所以我不能從EXCEL直接把圖放到表單，而是要在資料夾存圖片，再匯到表單內對吧?

jackyq

拜問 google 大神

暫時沒看到可以直接轉進表單的寫法

xgirlxs

回復 6# jackyq
AA.zip (126.83 KB)

下載次數: 13

2016-4-25 16:10

感謝你的幫忙，我目前只做好這樣子，請見附件，可是還是跟我想做的落差很大
我是希望從EXCEL查詢ABC，3Sheet裡的東西
符合條件者，會帶出表單 (所以表單會帶多筆資料)

能再請你幫忙解答一下嗎? 感謝

jackyq

你的 EXCEL 版本很高

我的 古董 2000 版沒法執行

你要請其他大大幫你瞧瞧看

Hsieh

回復 9# xgirlxs
做個簡單範例
利用圖表匯出圖片然後載入
你自己應用看看

下載 (239.07 KB)

2016-4-26 10:26

1. Private Sub ComboBox1_Change()
   
2. Dim a As Range
   
3. Application.ScreenUpdating = False
   
4. With 工作表1
   
5.   Set a = .Columns("A").Find(ComboBox1, lookat:=xlWhole)
   
6.   Label1.Caption = a.Offset(, 1)
   
7.   a.Offset(, 2).CopyPicture '複製成圖片
   
8.   With .ChartObjects.Add(1, 1, a.Offset(, 2).Width, a.Offset(, 2).Height) '新增圖表
   
9.     .Chart.Paste '貼上圖片
   
10.     .Chart.Export "D:\temp.jpg" '匯出圖表，暫存圖片
    
11.     .Delete '刪除圖表
    
12.   End With
    
13.   Image1.Picture = LoadPicture("D:\temp.jpg") '表單顯示圖片
    
14.   Kill "D:\temp.jpg" '刪除暫存圖片
    
15. End With
    
16. Application.ScreenUpdating = True
    
17. End Sub
    
18. 
    
19. 
    
20. Private Sub UserForm_Initialize()
    
21. Dim a As Range
    
22. Set d = CreateObject("Scripting.Dictionary")
    
23. With 工作表1
    
24.    For Each a In .Range(.[A2], .[A2].End(xlDown))
    
25.       d(a.Value) = ""
    
26.    Next
    
27. End With
    
28. ComboBox1.List = d.keys
    
29. End Sub

複製代碼

圖片選取.zip (27.63 KB)

下載次數: 11

2016-4-26 10:28

xgirlxs

回復 10# Hsieh

謝謝Hsieh，我已經成功研究出來了，如下圖

下載 (42.62 KB)

2016-5-9 09:38

但是，如果我要在表單中插入圖片，寫入工作表欄位中
這有辦法嗎??