作者:乔山办公网日期:
返回目录:excel表格制作
要用VBA搞定。
把你的表格模板先上传到你的百度网盘,并分享,然后把分享的链接给这里贴出来,等人帮你搞定吧。你给的分太少了吖!
首先文字与图片的文件名字要一样,来需插入image图像控件,自再使用单元格selectionchange事件,达到点击单元格弹出图片的效果zhidao。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [a1:a2]) Is Nothing Then
tup.Picture = LoadPicture(ThisWorkbook.Path & "\" & Target.Value & ".jpg")
tup.Top = Target.Top
tup.Left = Target.Left + Target.Width
End If
End Sub
先在单元格C1写上“图片1”再右键点击C1单元格,再点“超连接”,再找到需要的图片就可以了。
根据题目描述,D:\图片 文件夹下存放照片,在单元格输入照片名字知,想显示对应图片。
操作步骤如下:
在表格中,按ALT+F11键,把道以下代码粘贴进去:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$C$2" Then Exit Sub
On Error Resume Next
ActiveSheet.Shapes("pic").Select
Selection.ShapeRange.Fill.UserPicture "D:\图片\" & Range("C2").Value & ".jpg"
ActiveCell.Select
End Sub在工作表中插入一个图形版如矩形,在名称框输入pic命名。
在C2输入图片名,调整pic至合适大小权。当C2改变时,pic显示对应路径下不同图片。