vba自动插入图片（含代码）

首先新建一个文件夹将表格和图片放置在同一表格下面

图片格式为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即可执行程序，插入的图会随表格变化而变化

下方为演示效果，同时在本号中也有具体操做的视频，作本篇文章主要是为了放置代码方便大家复制粘贴，如果此篇文章或视频对您有所帮助请给点赞和关注哟~