標題: 請問如何修改這VBA程式顯示圖片的欄位? [打印本頁]

---

作者: jeffrey628litw    時間: 2019-5-13 14:06     標題: 請問如何修改這VBA程式顯示圖片的欄位?

請問如何修改這VBA程式顯示圖片的欄位?

請問如何將這F欄改到L欄產生圖片呢?

[attach]30579[/attach]

檔案下載：http://www.FunP.Net/690887

---

作者: jeffrey628litw    時間: 2019-5-13 18:17

謝謝各位大大我自己試出來了
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With Target
     If .Count > 1 Then Exit Sub
     '--------------------------------------
     If .Address = "$B$1" Then
        Cancel = True
        Beep
        If MsgBox("※確定要載入全部圖片嗎？", 4 + 32 + 1024) = vbNo Then Exit Sub
        Call 載入全部圖片: Exit Sub
     End If
     '-------------------------------------
     If .Column <> 2 Or .Row < 2 Or .Value = "" Then Exit Sub
     Cancel = True
     Set xRng = .Cells(1, 1)
     Set ShpRng = .Cells(1, 8)  ' 在這裡修改 Cell (1,N) N的數字就可以改放欄的位置
     Call 圖片刪除_單張
     If DelImgChk = 1 Then Exit Sub
     Call 插入圖片
     Beep
End With
End Sub

---

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