Board logo

標題: [發問] 將表單圖片，寫入另外一個sheet裡 [打印本頁]
作者: xgirlxs    時間: 2016-4-22 13:38     標題: vba表單帶出excel欄位的照片

如題

請教各位前輩知道語法該怎麼寫嗎？
作者: xgirlxs    時間: 2016-4-22 13:46

如題

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

資料表有中其中一個欄位是貼圖片
[attach]23931[/attach]

查詢後，會帶出相關的資訊履歷
[attach]23930[/attach]
作者: jackyq    時間: 2016-4-22 19:57

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

匯出存圖檔後 ,  再用  LoadPicture( ) 把它讀進來
userform1.Image1.Picture = LoadPicture(剛剛匯出的圖檔路徑)
作者: lpk187    時間: 2016-4-22 20:07

本帖最後由 lpk187 於 2016-4-22 20:09 編輯

回復 2# xgirlxs


    請參考http://forum.twbts.com/viewthrea ... %D7%A4J%B9%CF%A4%F9
作者: xgirlxs    時間: 2016-4-25 09:08

回復 3# jackyq


    謝謝您的回復...
    所以我不能從EXCEL直接把圖放到表單，而是要在資料夾存圖片，再匯到表單內對吧?
作者: jackyq    時間: 2016-4-25 09:37

拜問 google 大神

暫時沒看到可以直接轉進表單的寫法
作者: xgirlxs    時間: 2016-4-25 16:13

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

能再請你幫忙解答一下嗎? 感謝
作者: jackyq    時間: 2016-4-25 17:03

你的 EXCEL 版本很高

我的 古董 2000 版沒法執行

你要請其他大大幫你瞧瞧看
作者: Hsieh    時間: 2016-4-26 10:29

回復 9# xgirlxs
做個簡單範例
利用圖表匯出圖片然後載入
你自己應用看看
[attach]24011[/attach]
  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


  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
複製代碼
[attach]24012[/attach]
作者: xgirlxs    時間: 2016-5-9 09:40

回復 10# Hsieh

謝謝Hsieh，我已經成功研究出來了，如下圖
[attach]24204[/attach]

但是，如果我要在表單中插入圖片，寫入工作表欄位中
這有辦法嗎??
作者: xgirlxs    時間: 2016-5-9 10:47

回復 12# xgirlxs

如下圖....[attach]24207[/attach]
[attach]24205[/attach]
[attach]24206[/attach]
作者: xgirlxs    時間: 2016-5-9 16:05     標題: 將表單圖片，寫入另外一個sheet裡

[attach]24217[/attach]

我設計了二個表單，希望一個是做寫入，一個是查詢用的
希望高手幫幫我....多謝!

1. 首先，第一個表單，依專案別不同，將單筆資料寫入各sheet裡
[attach]24215[/attach]
寫入後，圖片也帶進來sheet內
[attach]24216[/attach]

2.做查詢
當滿足選單的三項條件後，會帶出符合的資料，這個資料可能是多筆
需要用捲軸去看符合的條件
[attach]24218[/attach]
[attach]24219[/attach][attach]24220[/attach]
作者: jackyq    時間: 2016-5-9 21:43

pic = "C:\_1_2_3_4_5_6.jpg__"
Call SavePicture(Image1.Picture, pic)  ' 把圖片存成檔案
'再用 Sheet 讀進剛剛的 "C:\_1_2_3_4_5_6.jpg__"
至於 Sheet 如何讀進圖檔
錄製巨集就知道步驟了
作者: xgirlxs    時間: 2016-5-10 08:22

回復 2# jackyq

sorry，jackyq...我把VBA都還給老師了
我不太了解你講的要怎麼做....
可不可以再仔細一點講解呢，感謝!



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