暱稱: 隨風飄蕩的羽毛 頭銜: [御用]潛水艇
高中生 
- 帖子
- 852
- 主題
- 79
- 精華
- 0
- 積分
- 918
- 點名
- 0
- 作業系統
- Windows 7 , XP
- 軟體版本
- Office 2007, Office 2003,Office 2010,YoZo Office
- 閱讀權限
- 50
- 性別
- 男
- 來自
- 宇宙
- 註冊時間
- 2011-4-8
- 最後登錄
- 2024-2-21
|
參考 論壇內的一些教學文 所弄出的
只是 圖片檔案多達上千筆 如果用這個方法 會瘋掉
請問有人能幫我簡化嗎?
初始條件
sheet1 名稱為 data_picture
欄位 a2 ~ a7為 序列號 (1~6)
欄位 b2 ~ b7 為人名
欄位 e1 ~ h6 為圖片顯示區域
Private Sub ComboBox1_Change()
If ComboBox1.Value = 1 Then
Image1.Picture = LoadPicture("C:\aaa\-01.jpg")
End If
Dim u As Range
Set u = Worksheets("data_picture").Range("e1")
If ComboBox1.Text = 1 Then
Call ActiveSheet.Shapes.AddPicture("C:\aaa\-01.JPG", msoFalse, msoTrue, u.Left, u.Top, 200, 200)
Else
If ComboBox1.Text = 2 Then
Call ActiveSheet.Shapes.AddPicture("C:\aaa\-02.JPG", msoFalse, msoTrue, u.Left, u.Top, 200, 200)
End If
End If
End Sub |
|
發表於 2011-4-8 15:51
| 
發表於 2011-4-10 21:14
| 
