怎样使用VBA按姓名插入图片？

1、首先在开发工具中打开VBA编辑器

2、在单元格区域当中输入一些内容作为例子

3、在VBA编辑器中插入模块

4、在模块当中输入如下代码，然后运行

Sub 插入照片()

 

    Dim p, ps As Shape, pic As String

 

    Const Spath$="D:/Pic/"   '设置图片的位置

 

    For Each ps In ActiveSheet.Shapes

 

      If Not Application.Intersect(ps.TopLeftCell, Range("d:d")) Is

 

        Nothing Then ps.Delete

 

Next                     '删除原来存放的照片

 

For Each cell In Range("a2:a" & [a1048576].End(xlUp).Row)

 

 pic=cell.Text & ".gif"    '设置照片名

 

      If Dir(Spath & pic) <> "" Then '假设图片存在时

 

      Set p=ActiveSheet.Pictures.Insert(Spath & pic)  '插入图片

 

      With p  '设置其位置刚好适应单元格大小

 

          .Top=cell.Offset(0, 3).Top

 

          .Left=cell.Offset(0, 3).Left

 

          .Height=cell.Offset(0, 3).Height

 

          .Width=cell.Offset(0, 3).Width

 

      End With

 

      End If

 

    Next cell

 

End Sub

5、用快捷键Alt+F8调出运行宏窗口，然后单击“执行”按钮，图片瞬间插入工作表中