帖子: 19
主題: 5
精華: 0
積分: 262
點名: 0
作業系統: WinXP
軟體版本: Office 2003
閱讀權限: 20
註冊時間: 2010-5-19
最後登錄: 2026-1-4

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2012龍年全勤獎章

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2012-9-10 12:50 | 只看該作者

[發問] 自訂表單內Image.Picture能不能載入工作表內的圖片

我有一工作表Sheet1.Range("O2")~("O4"), 內有3張圖片
自訂表單內有一Image控制項
原控制項載入圖片 Image1.Picture = LoadPicture(ThisWorkbook.Path & "\" & Sheets(1).Range("N2") & ".jpg")
請問控制項載入圖片的來源能否改為Sheet1.Range("O2")(圖片 6)~("O4")(圖片 8)如附件
麻煩各位幫忙一下!! 謝謝!!

附件

Picture.zip (51.43 KB)

樓主熱帖

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

2^#

發表於 2012-9-10 16:50 | 只看該作者

回復 1# mgame168

Picture.zip (36.12 KB)

學海無涯_不恥下問

TOP

mgame168

中學生 Rank: 2

帖子: 19
主題: 5
精華: 0
積分: 262
點名: 0
作業系統: WinXP
軟體版本: Office 2003
閱讀權限: 20
註冊時間: 2010-5-19
最後登錄: 2026-1-4

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2012龍年全勤獎章

3^#

發表於 2012-9-12 06:57 | 只看該作者

回復 2# Hsieh

感謝 Hsieh 板大的幫忙
依照您的方法果然問題迎刃而解
但經試過另一個問題產生了
若我將Sheets1的圖片順序位置調整則發生兩個問題
1.Sheets1的圖片名稱定義Sp.Name = n & ".jpg" 會出現'沒有使用權限
錯誤訊息
2.UserForm1內的OptionBotton的排列順序
For Each Sp In Sheet1.Shapes 將Sheets1的圖片依產生的順序排列
是否可以依Sheet1內N2~Nx排列呢?
感謝Hsieh 板大

TOP

mgame168

中學生 Rank: 2

帖子: 19
主題: 5
精華: 0
積分: 262
點名: 0
作業系統: WinXP
軟體版本: Office 2003
閱讀權限: 20
註冊時間: 2010-5-19
最後登錄: 2026-1-4

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2012龍年全勤獎章

4^#

發表於 2012-9-12 08:01 | 只看該作者

回復 2# Hsieh

附件

Picture2.zip (42.9 KB)

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

5^#

發表於 2012-9-12 09:11 | 只看該作者

回復 4# mgame168
測試並無"沒有權限"的問題產生

Picture2.zip (41.92 KB)

學海無涯_不恥下問

TOP

mgame168

中學生 Rank: 2

帖子: 19
主題: 5
精華: 0
積分: 262
點名: 0
作業系統: WinXP
軟體版本: Office 2003
閱讀權限: 20
註冊時間: 2010-5-19
最後登錄: 2026-1-4

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2012龍年全勤獎章

6^#

發表於 2012-9-12 12:03 | 只看該作者

本帖最後由 mgame168 於 2012-9-12 12:05 編輯

回復 5# Hsieh

UserForm1內的OptionBotton的排列順序容我再測試 !!

您可以試試將現有Sheet1內車子的照片與黑白色鐵槌的照片
用拖曳的方式將兩張圖的位置手動對調就會出現"'沒有使用權限"

'解決改變Sheet1的圖片順序會造成"沒有使用權限"的錯誤
  For Each Sp In Sheet1.Shapes
If Sp.Type = msoPicture Then
   n = Sp.TopLeftCell.Offset(, -1)
   Sp.Name = n & "Temp" '先把Picture物件的名子改掉避免對調後物件名子重複
End If
  Next

For Each Sp In Sheet1.Shapes
If Sp.Type = msoPicture Then
   n = Sp.TopLeftCell.Offset(, -1).Text
      fs = ThisWorkbook.Path & "\" & n & ".jpg"
      SaveAsPic Sp, fs
      Sp.Name = n & ".jpg"  '沒有使用權限
      i = Sp.TopLeftCell.Row - 2
      Obs(i).MyOpton.Caption = n
      Image1.PictureSizeMode = 1
End If
  Next

Picture2-2.zip (43.84 KB)

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

7^#

發表於 2012-9-12 18:22 | 只看該作者