標題: 一個連結問題 [打印本頁]

---

作者: 317    時間: 2015-10-14 21:52     標題: 一個連結問題

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

---

作者: 准提部林    時間: 2015-10-15 13:01

＜以註解顯示圖片＞　
１．在Ｃ２以下〔雙按滑鼠左鍵〕，產生註解圖片；再雙按一次，刪除本格註解
２．在Ｃ１雙按滑鼠左鍵，刪除全部註解
３．ARR = Array(ThisWorkbook.Path)　可修改指定路徑，圖檔搜尋包含其〔子資料夾〕
　
附件下載：多年前為網友製作的樣本檔，稍作修改，請自行去套用
[attach]22197[/attach]

---

作者: 317    時間: 2015-10-15 20:18

回復 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 '雙按Ｃ１，刪除全部註解
If DBRng.Value = "" Then Exit Sub
Call 插入註解圖片
End Sub

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

謝謝!!

---

作者: 准提部林    時間: 2015-10-15 21:31

回復 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 '雙按Ｃ１，刪除全部註解
　If DBRng.Value = "" Then Exit Sub
　Call 插入註解圖片
ElseIf DBRng.Address = "$A$1" Then　'對Ａ１雙按
　Cancel = True
　Call CopyData
End If
End Sub

---

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