
在excel中标题栏插入中有超级连接一项,利用这个功能就可以了。
1、首先粘贴图片,在图片上单击右键,找到超级链接单击!
2、出现对话框如下图所示,在右边选择本文档中的位置,在单元格引用中选择sheet1(根据自己的来),然后在请“键入单元格引用中”编写地址,文件默认的是A1,可以随便编写的。坦卜圆
3、在你编写的让塌文档点击一个空白弊兄的单元,然后点超级链接,出现对话框,如果“键入单元格引用中”单元的地址和上面图片编辑的地址一样就确认!
4、接着在单元格上就会出现“sheet!A1”标示,想链接图片时点击一下就可以了!
给个宏
Private Sub Worksheet_Change(ByVal Target As Range)
Dim myPath As String, jpg As String, ss As String, NAM As String, RA As Range
ss = Target.Address
If ss = "银档$B$2" Or ss = "$B$300" Or ss = "$B$2" Or ss = "$B$300" _
Or ss = "$G$2" Or ss = "$G$300" Or ss = "$G$2" Or ss = "$G$300" Then
NAM = Target.Column & Target.Row
myPath = ThisWorkbook.Path & "数搏芦\照片库\"
jpg = Target.Value & ".jpg"
On Error Resume Next
Application.ScreenUpdating = False
Set RA = Target.Offset(0, 2)
With Sheets("格薯带式")
RA.Select
.Pictures(NAM).Delete
.Pictures.Insert(myPath & jpg).Name = NAM
.Pictures(NAM).Height = RA.MergeArea.Height
.Pictures(NAM).Width = RA.Width
End With
Application.ScreenUpdating = True
End If
End Sub