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

mgame168

我有一工作表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)

Picture
下載次數: 5

2012-9-10 12:46

Hsieh

回復 1# mgame168


    Picture.zip (36.12 KB)

下載次數: 21

2012-9-10 16:50

mgame168

回復 2# Hsieh

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

下載 (80.36 KB)

2012-9-12 06:57

mgame168

回復 2# Hsieh


    附件 Picture2.zip (42.9 KB)

下載次數: 4

2012-9-12 08:00

Hsieh

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

   Picture2.zip (41.92 KB)

下載次數: 11

2012-9-12 09:11

mgame168

回復 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)

下載次數: 6

2012-9-12 12:05

Hsieh

回復 6# mgame168
那就不要去重新命名圖片


    Picture2-2.rar (40.45 KB)

下載次數: 16

2012-9-12 18:22

mark15jill

回復 3# mgame168


    權限問題有可能是
1.當前使用者帳戶並無管理權限
2.軟體出錯(之前就發生過)