標題: [發問] 自訂表單內Image.Picture能不能載入工作表內的圖片 [打印本頁]

---

作者: mgame168    時間: 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)如附件
麻煩各位幫忙一下!!  謝謝!!

附件[attach]12435[/attach]

---

作者: Hsieh    時間: 2012-9-10 16:50

回復 1# mgame168


    [attach]12437[/attach]

---

作者: mgame168    時間: 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 板大

[attach]12454[/attach]

---

作者: mgame168    時間: 2012-9-12 08:01

回復 2# Hsieh


    附件[attach]12455[/attach]

---

作者: Hsieh    時間: 2012-9-12 09:11

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

  [attach]12459[/attach]

---

作者: mgame168    時間: 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

[attach]12461[/attach]

---

作者: Hsieh    時間: 2012-9-12 18:22

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


    [attach]12466[/attach]

---

作者: mark15jill    時間: 2012-9-26 08:55

回復 3# mgame168


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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)