返回列表 上一主題 發帖

[發問] 將表單圖片，寫入另外一個sheet裡

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
98  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-4-27 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
1# 跳轉到 »
發表於 2016-4-26 10:29 | 顯示全部帖子
回復 9# xgirlxs
做個簡單範例
利用圖表匯出圖片然後載入
你自己應用看看
play.gif
  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
複製代碼
圖片選取.zip (27.63 KB)
學海無涯_不恥下問

TOP

        靜思自在 : 謊言像一朵盛開的鮮花，外表美麗，生命短暫。
返回列表 上一主題