如何点击单元格就显示图片

‘壹’ wps点击单元格显示图片

摘要 1、在单元格输入所需文本

‘贰’ 点击指定数据的单元格，显示对应的图片，代码怎么调整

假使A1放的是图片名，那么双击A1 在指定区域显示图片，双击其他单元格删除图片。
把以下代码这个放在sheet 双击事件中 代码我调试过了

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim re As Range
Dim pic As Variant
Dim path As String
Dim name As String
Dim shp As Shape
If Target.Column = 1 And Target.Row = 1 Then '双击A1
name = ThisWorkbook.Sheets(1).Cells(1, 1)
path = "C:\Users\Administrator\Desktop\" & name & ".png" '这里图片路径，我是把图片放在桌面上的，自己改
Set pic = Nothing
ThisWorkbook.Sheets(1).Range("C1:F4").Select '这里C1：F4是图片显示的区域位置，大小也和区域一样大
Set pic = ActiveSheet.Pictures.Insert(path)
pic.name = name '设定图片的名称 为A1的值
pic.Placement = xlMoveAndSize '图片随着区域大小
With pic.ShapeRange
.LockAspectRatio = msoFalse
.Height = Selection.Height
.Width = Selection.Width
End With
Else
name = ThisWorkbook.Sheets(1).Cells(1, 1)
For Each shp In ThisWorkbook.Sheets(1).Shapes '如果双击的是其他单元格，则删除A1对应的图片
If InStr(shp.name, name) Then shp.Delete
Next
End If
End Sub

‘叁’ 在Excel表格中如何实现鼠标移到相应的单元格就会显示出图片

右键单元格--插入批注，删除方框中的文字

‘肆’ 如何在excel表格上设置双击出现图片

可以设置成连接，把你想点击后出现的图片进行超链接就可以实现了。

‘伍’ 怎么在excel中点击文字出现图片

1、首先来制作下来列表，实现进行产品筛选：选定要放置的单元格（如本次的E2），点击功能区的数据选项卡中的“数据验证”，

‘陆’ EXCEL 如何在单元格插入一个图片，双击时就显示原图。

1、电脑打开Excel表格，然后点击插入选项。

‘柒’ 怎么用VBA实现点击单元格然后根据单元格内容旁边自动显示图片图片都是电脑统一路径下的。

工作表插入ActiveX控件Image1
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Image1.Picture = LoadPicture("图片路径\" & Target.Cells(1, 1) & ".jpg")
End Sub

‘捌’ Excel中可以实现鼠标点击一个单元格,另一个单元格就显示与之关联的图片吗

假使A1放的是图片名，那么双击A1 在指定区域显示图片，双击其他单元格删除图片。

把以下代码这个放在sheet 双击事件中 代码我调试过了

PrivateSubWorksheet_BeforeDoubleClick(ByValTargetAsRange,CancelAsBoolean)
DimreAsRange
DimpicAsVariant
DimpathAsString
DimnameAsString
DimshpAsShape
IfTarget.Column=1AndTarget.Row=1Then'双击A1
name=ThisWorkbook.Sheets(1).Cells(1,1)
path="C:UsersAdministratorDesktop"&name&".png"'这里图片路径，我是把图片放在桌面上的，自己改
Setpic=Nothing
ThisWorkbook.Sheets(1).Range("C1:F4").Select'这里C1：F4是图片显示的区域位置，大小也和区域一样大
Setpic=ActiveSheet.Pictures.Insert(path)
pic.name=name'设定图片的名称为A1的值
pic.Placement=xlMoveAndSize'图片随着区域大小
Withpic.ShapeRange
.LockAspectRatio=msoFalse
.Height=Selection.Height
.Width=Selection.Width
EndWith
Else
name=ThisWorkbook.Sheets(1).Cells(1,1)
ForEachshpInThisWorkbook.Sheets(1).Shapes'如果双击的是其他单元格，则删除A1对应的图片
IfInStr(shp.name,name)Thenshp.Delete
Next
EndIf
EndSub

‘玖’ excel表格怎么设置点一下文字就出来图片

点中文字右击超链接，选需要连接的图片即可。

‘拾’ EXCEL表中如何设置成点击单元格就能显示其详细信息，附图

可以用宏处理，老兄，文件发到