返回列表 上一主題 發帖

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

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

高中生Rank: 3Rank: 3

帖子
852 
主題
79 
精華
0 
積分
918 
點名
0  
作業系統
Windows 7 , XP 
軟體版本
Office 2007, Office 2003,Office 2010,YoZo Office 
閱讀權限
50 
性別
男 
來自
宇宙 
註冊時間
2011-4-8 
最後登錄
2024-2-21 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2011-4-8 15:51 | 只看該作者

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

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

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

高中生Rank: 3Rank: 3

帖子
852 
主題
79 
精華
0 
積分
918 
點名
0  
作業系統
Windows 7 , XP 
軟體版本
Office 2007, Office 2003,Office 2010,YoZo Office 
閱讀權限
50 
性別
男 
來自
宇宙 
註冊時間
2011-4-8 
最後登錄
2024-2-21 
4#
發表於 2011-4-18 11:17 | 只看該作者
這幾天試驗連結的部份
kimbal  您所發的方法 小弟有試驗過
但是 會顯示資料型態錯誤
不曉得是 combobox這邊的引用設定錯誤還是怎樣
顯示是可以顯示 但是 卻變成執行程式時 會造成型態錯誤而中斷
不曉得說該怎設定比較恰當

TOP

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

高中生Rank: 3Rank: 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

kimbal

帖子
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

        靜思自在 : 一句溫暖的話，就像往別人身上灑香水，自己會沾到兩三滴。
返回列表 上一主題