返回目录:excel表格制作
图片和excel工作薄必须在同一个文件夹下
假设输入内容的单元格在第一列
在工作表名称上点右键选查看代码,粘贴以下代码到弹出窗口e799bee5baa6e79fa5e98193e78988e69d83361.关闭弹出窗口
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
sfileName = ThisWorkbook.Path & "\" & Target.Value & ".jpg"
On Error GoTo err01
With Target.Offset(0, 1)
Shapes.AddPicture(sfileName, True, True, .Left, .Top, .Width, .Height).Select
Selection.Placement = xlMoveAndSize
End With
End If
Cells(1, 1).Select
Exit Sub
err01:
If err.Number = 1004 Then MsgBox "当前目录下没有名称为:" & Target.Value & ".jpg,的图片"
End Sub
可以用vba代码完成:
1、先编制表格:
2、在表格里e799bee5baa6e997aee7ad94e59b9ee7ad94366编写触发宏代码:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim photoname As String
If Target.Row = 3 And Target.Column > 3 And Target.Column < 6 Then
On Error Resume Next '忽略错误继续执行VBA代码,避免出现错误消息
Application.ScreenUpdating = False
Application.EnableEvents = False
For Each shp In Sheets("查询表").Shapes
If shp.Type <> 8 And shp.Type <> 12 Then
shp.Delete
End If
Next
photoname = Cells(3, 4) & ".JPG"
Cells(3, "L").Select
ActiveSheet.Pictures.Insert(ActiveWorkbook.Path & "\照片\" & photoname).Select '当前文件所在目录下以单元内容为名称的.jpg图片
With Selection
ta = Range(Cells(3, "L").MergeArea.Address).Height '单元高度
tb = Range(Cells(3, "L").MergeArea.Address).Width '单元宽度
tc = .Height '图片高度
td = .Width '图片宽度
tm = Application.WorksheetFunction.Min(ta / tc, tb / td) '单元与图片之间长宽差异比例的最小值
.Top = ActiveCell.Top + 2
.Left = ActiveCell.Left + 1
.Height = .Height * tm * 0.98 '按比例调整图片宽度
.Width = .Width * tm * 0.98 '按比例调整图片高度
End With
Cells(3, 4).Select
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
3、在当前目录下建个名为”照片“的子目录,里面存有以姓名为名称的.jpg格式的照片
4、在姓名后单元输入姓名后,就能自动插入图片了
假设照百片存放在“表2”的B列,而想让它动态的显示在“表1”中。而代码230124198204260732等数据输入在A1中
首先在表1中插入“图像”控件并调度整其大小以适应A2单元格--单击插入的控件在编辑栏处把公式改为问引用自定义的根据表C1单元格查询图片的名称答TP
首先命名名称:
TP=INDEX(表2!$B:$B,IF(表1!$A$1="",65536,MATCH(表1!$A$1,表2!$A:$A,0)))
这样当表1的A1单元格输入230124198204260732等代码内是图像控件将娴熟对应的照片。 当A1为空时则显示表2的B65536单元格的内容容(一般为空)。
希望对楼主有用。
1、首先需要打开添加图片的EXCEL表格。
2、在菜单栏依次点击”插入“、”图片“百。找到存放图片文件的路径,度将图片导入EXCEL表格。
3、调整图片大小和位置,使其位于固定的单元格内。但是如果我们删除行或者列时知,由于不同的单元格大小不一样,需要重新调整图片大小。
4、在图片上单击道鼠标右键,找到”大小和属性“按钮专。
5、在属性中勾选”随单元格改变位置和大小“。
6、之后返回主界面,随便删除某一行属或者某一列,可以发现图片会跟随单元格变化而自动变化。