返回列表 上一主題 發帖

一個連結問題

一個連結問題

各前輩大大好:
想請教如果在cexel檔中, 假設c欄為編號, 我把鼠標移至c欄儲存格, 該儲存便連結資料"圖檔"中圖片有相同編號之圖片顥示出來,
我原本是用註解, 插入圖片, 但因圖片越來越來, 資料開啟便緩慢, 故想請教是否可以用連結方式取代, 敬請大大們協助,
謝謝謝!

<以註解顯示圖片> 
1.在C2以下〔雙按滑鼠左鍵〕,產生註解圖片;再雙按一次,刪除本格註解
2.在C1雙按滑鼠左鍵,刪除全部註解
3.ARR = Array(ThisWorkbook.Path) 可修改指定路徑,圖檔搜尋包含其〔子資料夾〕
 
附件下載:多年前為網友製作的樣本檔,稍作修改,請自行去套用
20151015v01(註解圖片).rar (720.62 KB)

TOP

回復 2# 准提部林
感謝大大,
因檔案內有程式, 如何把2個程螎合. 煩請指導..

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Set DBRng = Target
If DBRng.Column <> 3 Then Exit Sub
Cancel = True
If DBRng.Row = 1 Then [C:C].ClearComments: Exit Sub '雙按C1,刪除全部註解
If DBRng.Value = "" Then Exit Sub
Call 插入註解圖片
End Sub

原檔案內程式
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Call CopyData
End Sub

謝謝!!

TOP

回復 3# 317


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Set DBRng = Target
If DBRng.Column = 3 Then
 Cancel = True
 If DBRng.Row = 1 Then [C:C].ClearComments: Exit Sub '雙按C1,刪除全部註解
 If DBRng.Value = "" Then Exit Sub
 Call 插入註解圖片
ElseIf DBRng.Address = "$A$1" Then '對A1雙按
 Cancel = True
 Call CopyData
End If
End Sub

TOP

        靜思自在 : 甘願做、歡喜受。
返回列表 上一主題