首先新建一个文件夹将表格和图片放置在同一表格下面
图片格式为jpg,图片名称要与表格内名称相同
在表格内新建模块中输入一下程序:
Sub 插入图片()
Application.ScreenUpdating = False
Dim i As Integer
Dim filpath As String
Dim rng As Range
Dim s As String
Dim picTemp As Picture
Dim x As Shape
For Each x In ActiveSheet.Shapes
x.Delete
Next
With Sheet1
For i = 2 To .Cells(Rows.Count, 2).End(xlUp).Row
filpath = ThisWorkbook.Path & "\测试图片\" & .Cells(i, 2).Text & ".jpg"
If Dir(filpath) "" Then
Set rng = .Cells(i, 3)
Set picTemp = .Pictures.Insert(filpath)
picTemp.Placement = xlMoveAndSize
With picTemp
.ShapeRange.LockAspectRatio = msoFalse
.Top = rng.Top
.Left = rng.Left
.Height = rng.Height
.Width = rng.Width
End With
Else
s = s & Chr(10) & .Cells(i, 2).Text
End If
Next
End With
If s "" Then
MsgBox s & Chr(10) & "没有照片"
End If
Application.ScreenUpdating = True
End Sub
键盘上按F5即可执行程序,插入的图会随表格变化而变化
下方为演示效果,同时在本号中也有具体操做的视频,作本篇文章主要是为了放置代码方便大家复制粘贴,如果此篇文章或视频对您有所帮助请给点赞和关注哟~
领取专属 10元无门槛券
私享最新 技术干货