- 帖子
- 103
- 主題
- 30
- 精華
- 0
- 積分
- 139
- 點名
- 0
- 作業系統
- wondows XP
- 軟體版本
- office 2007
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 彰化
- 註冊時間
- 2013-2-21
- 最後登錄
- 2015-6-26
|
置入圖片
想請問大大
目前我在研究一個功能
如果資料夾裡面有N張圖片
我的Test頁籤畫面只有9格欄位
按下按鈕後程式會將相對應的圖片匯入(祥見圖片)
但是如果超過9格欄位
能不能自動複製相同的頁籤
再把剩下沒有放進去的圖片置入
我目前有手動嘗試過複製頁籤
但是Image命名不會變成 Image10~Image18
要怎麼樣才能解決目前的瓶頸><
希望能有神人指引我方向...- Private Sub CommandButton1_Click()
- '----讀入圖片
- If Dir(ThisWorkbook.Path & "\" & "Test" & "\1.jpg") <> "" Then
- Image1.Picture = LoadPicture(ThisWorkbook.Path & "\" & "Test" & "\1.jpg")
- Else
- Image1.Picture = LoadPicture(ThisWorkbook.Path & "\white.jpg")
- End If
-
- If Dir(ThisWorkbook.Path & "\" & "Test" & "\2.jpg") <> "" Then
- Image2.Picture = LoadPicture(ThisWorkbook.Path & "\" & "Test" & "\2.jpg")
- Else
- Image2.Picture = LoadPicture(ThisWorkbook.Path & "\white.jpg")
- End If
-
- If Dir(ThisWorkbook.Path & "\" & "Test" & "\3.jpg") <> "" Then
- Image3.Picture = LoadPicture(ThisWorkbook.Path & "\" & "Test" & "\3.jpg")
- Else
- Image3.Picture = LoadPicture(ThisWorkbook.Path & "\white.jpg")
- End If
-
- If Dir(ThisWorkbook.Path & "\" & "Test" & "\4.jpg") <> "" Then
- Image4.Picture = LoadPicture(ThisWorkbook.Path & "\" & "Test" & "\4.jpg")
- Else
- Image4.Picture = LoadPicture(ThisWorkbook.Path & "\white.jpg")
- End If
-
- If Dir(ThisWorkbook.Path & "\" & "Test" & "\5.jpg") <> "" Then
- Image5.Picture = LoadPicture(ThisWorkbook.Path & "\" & "Test" & "\5.jpg")
- Else
- Image5.Picture = LoadPicture(ThisWorkbook.Path & "\white.jpg")
- End If
-
- If Dir(ThisWorkbook.Path & "\" & "Test" & "\6.jpg") <> "" Then
- Image6.Picture = LoadPicture(ThisWorkbook.Path & "\" & "Test" & "\6.jpg")
- Else
- Image6.Picture = LoadPicture(ThisWorkbook.Path & "\white.jpg")
- End If
-
- If Dir(ThisWorkbook.Path & "\" & "Test" & "\7.jpg") <> "" Then
- Image7.Picture = LoadPicture(ThisWorkbook.Path & "\" & "Test" & "\7.jpg")
- Else
- Image7.Picture = LoadPicture(ThisWorkbook.Path & "\white.jpg")
- End If
-
- If Dir(ThisWorkbook.Path & "\" & "Test" & "\8.jpg") <> "" Then
- Image8.Picture = LoadPicture(ThisWorkbook.Path & "\" & "Test" & "\8.jpg")
- Else
- Image8.Picture = LoadPicture(ThisWorkbook.Path & "\white.jpg")
- End If
-
- If Dir(ThisWorkbook.Path & "\" & "Test" & "\9.jpg") <> "" Then
- Image9.Picture = LoadPicture(ThisWorkbook.Path & "\" & "Test" & "\9.jpg")
- Else
- Image9.Picture = LoadPicture(ThisWorkbook.Path & "\white.jpg")
- End If
-
-
- End Sub
|
|
發表於 2014-7-10 16:35
| 
