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

jeffrey628litw

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

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

下載 (28.33 KB)

2019-5-13 14:04

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

jeffrey628litw

謝謝各位大大我自己試出來了
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