首页 > 实用工具 > 正文

在工作中经常会遇到需要在EXCEL中根据信息内容插入图片,少量的时候还可以手动插入,当遇到大量需要添加图片的时候手工根本是无法完成的,这时候就需要用到EXCEL的宏命令来完成了。

使用要求

  • 需要EXCEL和图片均在一个目录下。
  • 需要图片为jpg格式(最好尺寸一致,方便排版)。
  • 图片名称需要与插入单元格内的信息一致。(根据需要自行制定规则)

使用方法

  1. 打开EXCEL文件
  2. 按住Alt + F11打开Visual Basic。
  3. 在Visual Basic菜单中选“插入” -> “模块”。
  4. 复制代码区域代码到其中。
  5. 选中EXCEL中需要批量插入图片的单元格。
    例如:单元格内容为1,这个地方将插入1.jpg的图片
  6. 在Visual Basic菜单中选“运行” -> “运行子过程/用户窗体”(快捷键F5)

批量插入图片代码

Sub 插入图片到单元格()
On Error Resume Next

Dim MR As Range

For Each MR In Selection

If Not IsEmpty(MR) Then

MR.Select

ML = MR.Left

MT = MR.Top

MW = MR.Width

MH = MR.Height

ActiveSheet.Shapes.AddShape(msoShapeRectangle, ML, MT, MW, MH).Select

Selection.ShapeRange.Fill.UserPicture _
       ActiveWorkbook.Path & "\" & MR.Value & ".jpg"

End If
Next

End Sub

猜你喜欢
发表评论

电子邮件地址不会被公开。 必填项已用*标注

评论信息