返回列表 上一主題 發帖

一個連結問題

准提部林

帖子
2843 
主題
10 
精華
0 
積分
2899 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2025-7-17 
1# 跳轉到 »
發表於 2015-10-15 13:01 | 顯示全部帖子
＜以註解顯示圖片＞　
１．在Ｃ２以下〔雙按滑鼠左鍵〕，產生註解圖片；再雙按一次，刪除本格註解
２．在Ｃ１雙按滑鼠左鍵，刪除全部註解
３．ARR = Array(ThisWorkbook.Path)　可修改指定路徑，圖檔搜尋包含其〔子資料夾〕
　
附件下載：多年前為網友製作的樣本檔，稍作修改，請自行去套用
20151015v01(註解圖片).rar (720.62 KB)

TOP

准提部林

帖子
2843 
主題
10 
精華
0 
積分
2899 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2025-7-17 
2#
發表於 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

        靜思自在 : 【是否發揮了良能？】人間壽命因為短暫，才更顯得珍貴。難得來一趟人間，應問是否為人間發揮了自己的良能，而不要一味求長壽。
返回列表 上一主題