[發問] 剛弄好的程式請問能否簡化

參考論壇內的一些教學文所弄出的
只是圖片檔案多達上千筆如果用這個方法會瘋掉
請問有人能幫我簡化嗎?
初始條件
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

樓主熱帖

kimbal

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 472
主題: 5
精華: 0
積分: 485
點名: 0
作業系統: Windows
軟體版本: MS Office
閱讀權限: 100
性別: 男
來自: 香港
註冊時間: 2010-7-4
最後登錄: 2014-12-28

論壇貢獻勳章

2^#

發表於 2011-4-10 21:14 | 只看該作者

問題是要看你的圖名和選項有什麼關系
以下的是,如果選上的是1
圖名自動找"C:\aaa\-01.jpg"
如果選上的是2
圖名自動找"C:\aaa\-02.jpg"
...
如果選上的是99
圖名自動找"C:\aaa\-99.jpg"

Private Sub ComboBox1_Change()
Dim strImageLocation
strImageLocation = "C:\aaa\-" & Format(Val(ComboBox1.Text), 0) & ".jpg"
Image1.Picture = LoadPicture(strImageLocation)
Dim u As Range
Set u = Worksheets("data_picture").Range("e1")
Call ActiveSheet.Shapes.AddPicture(strImageLocation, msoFalse, msoTrue, u.Left, u.Top, 200, 200)

End Sub

懂得發問,答案就會在其中

今日の一秒は明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

mark15jill

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

3^#

發表於 2011-4-12 08:33 | 只看該作者

大概看懂一些.. 謝謝您
再請教這串的意思是??
  strImageLocation = "C:\aaa\-" & Format(Val(ComboBox1.Text), 0) & ".jpg"

還有如果想要設計一個label  的框框
將其資料列顯示出來還需要增加什麼??
初始條件
sheet1 名稱為 data_picture
欄位 a2 ~ a7 為序列號 (1~6)
欄位 b2 ~ b7 為人名
欄位 c2 ~  d2 為資料列
欄位 c3 ~  d3 為資料列
欄位 e1 ~ h6 為圖片顯示區域

TOP

mark15jill