- 帖子
- 4901
- 主題
- 44
- 精華
- 24
- 積分
- 4916
- 點名
- 255
- 作業系統
- Windows 7
- 軟體版本
- Office 20xx
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台北
- 註冊時間
- 2010-4-30
- 最後登錄
- 2024-11-24
              
|
9#
發表於 2016-4-26 10:29
| 只看該作者
回復 9# xgirlxs
做個簡單範例
利用圖表匯出圖片然後載入
你自己應用看看
- Private Sub ComboBox1_Change()
- Dim a As Range
- Application.ScreenUpdating = False
- With 工作表1
- Set a = .Columns("A").Find(ComboBox1, lookat:=xlWhole)
- Label1.Caption = a.Offset(, 1)
- a.Offset(, 2).CopyPicture '複製成圖片
- With .ChartObjects.Add(1, 1, a.Offset(, 2).Width, a.Offset(, 2).Height) '新增圖表
- .Chart.Paste '貼上圖片
- .Chart.Export "D:\temp.jpg" '匯出圖表，暫存圖片
- .Delete '刪除圖表
- End With
- Image1.Picture = LoadPicture("D:\temp.jpg") '表單顯示圖片
- Kill "D:\temp.jpg" '刪除暫存圖片
- End With
- Application.ScreenUpdating = True
- End Sub
- Private Sub UserForm_Initialize()
- Dim a As Range
- Set d = CreateObject("Scripting.Dictionary")
- With 工作表1
- For Each a In .Range(.[A2], .[A2].End(xlDown))
- d(a.Value) = ""
- Next
- End With
- ComboBox1.List = d.keys
- End Sub
 圖片選取.zip (27.63 KB)
|
|
發表於 2016-4-22 13:38
| 
