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

 时间:2024-10-16 21:00:20

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

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

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

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

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

怎样使用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.DeleteNext '删除原来存放的照片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 cellEnd Sub

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

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

怎样使用VBA按姓名插入图片
  • 怎样使用VBA批量填充单元格数据?
  • Excel一键计算指定行非空单元格个数
  • [推荐]Excel如何快速选中多个或者全部工作表
  • 如何将数字转换成汉字小写?
  • 如何在Excel VBA中结合自动筛选和Change事件
  • 热门搜索
    元宵手抄报简单又漂亮 环保手抄报文字 感恩母爱手抄报第一名 防地震手抄报 推广普通话手抄报句子 儿童中秋节手抄报 敬廉崇洁手抄报 美丽校园手抄报 战争手抄报 禁止吸烟手抄报