excel怎么批量插图一一对应(excel如何批量插入图片和代号对应)

excel怎么批量插图一一对应(excel如何批量插入图片和代号对应)

首页维修大全综合更新时间:2023-12-24 07:01:41

excel怎么批量插图一一对应

可以使用 Excel 的“宏”功能来批量插入一组图片并将其与单元格中的数据一一对应。以下是一些步骤:

1. 打开 Excel 文件并按下“Alt”和“F11”键,打开 Visual Basic 编辑器。

2. 在“插入”菜单中,选择“模块”。

3. 在新模块中,输入以下代码:

Sub InsertPictures()

Dim PicPath As String

Dim PicName As String

Dim PicTop As Single

Dim PicLeft As Single

Dim PicWidth As Single

Dim PicHeight As Single

Dim Rng As Range

Set Rng = Selection

For Each cell In Rng

PicPath = "C:UsersUserNamePictures"

PicName = cell.Value & ".jpg"

PicTop = cell.Top

PicLeft = cell.Left + cell.Width

PicWidth = cell.Width

PicHeight = cell.Height

If Dir(PicPath & PicName) <> "" Then

ActiveSheet.Shapes.AddPicture _

Filename:=PicPath & PicName, _

LinkToFile:=msoFalse, _

SaveWithDocument:=msoTrue, _

Left:=PicLeft, Top:=PicTop, _

Width:=PicWidth, Height:=PicHeight

End If

Next cell

End Sub

4. 将代码中的“C:UsersUserNamePictures”替换为您存储图片的文件夹路径。

5. 将代码中的“.jpg”替换为图片的文件类型。

6. 保存文件并关闭 Visual Basic 编辑器。

7. 选中要插入图片的单元格范围。

8. 按下“Alt”和“F8”键,打开“宏”对话框。

9. 选择“InsertPictures”宏并单击“运行”。

大家还看了
也许喜欢
更多栏目

© 2021 3dmxku.com,All Rights Reserved.