一個連結問題

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

樓主熱帖

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2808
主題: 10
精華: 0
積分: 2864
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-5-19

2^#

發表於 2015-10-15 13:01 | 只看該作者

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

20151015v01(註解圖片).rar (720.62 KB)

TOP

317

中學生 Rank: 2

帖子: 248
主題: 55
精華: 0
積分: 334
點名: 0
作業系統: xp
軟體版本: 2003
閱讀權限: 20
註冊時間: 2010-7-24
最後登錄: 2023-2-2

3^#

發表於 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

謝謝!!

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2808
主題: 10
精華: 0
積分: 2864
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-5-19

4^#

發表於 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

TOP