EXCEL 批量插入图片

candyafteryou

看起来复杂了一下，正在寻找解决办法

lskvslgt

Sub InsertPictures()
    Dim PicPath As String
    Dim NameRange As Range
    Dim PicRange As Range

    '设置图片路径'
    PicPath = "C:\Pictures\"

    '获取要插入图片的单元格范围'
    Set NameRange = Range("A1:A10")
    Set PicRange = Range("H1:H10")

    '循环遍历每个单元格，插入对应的照片'
    For i = 1 To NameRange.Cells.Count
        If Len(NameRange.Cells(i).Value) > 0 Then
            PicRange.Cells(i).Activate
            ActiveSheet.Pictures.Insert(PicPath & NameRange.Cells(i).Value & ".JPG").Select
            With Selection.ShapeRange
                .LockAspectRatio = msoFalse
                .Width = PicRange.Cells(i).Width
                .Height = PicRange.Cells(i).Height
            End With
        End If
    Next i
End Sub

lskvslgt

要批量插入照片到对应的单元格中，需要使用 Excel 的 VBA 宏功能。
请按照以下步骤操作：

1. 打开 Excel，按下 "Alt+F11" 进入 VBA 编辑器界面。

2. 在 VBA 编辑器中，点击 "插入"，然后选择 "模块"。

3. 在新建的模块中，输入以下代码：

```
Sub InsertPictures()
    Dim PicPath As String
    Dim NameRange As Range
    Dim PicRange As Range

    '设置图片路径'
    PicPath = "C:\Pictures\"

    '获取要插入图片的单元格范围'
    Set NameRange = Range("A1:A10")
    Set PicRange = Range("H1:H10")

    '循环遍历每个单元格，插入对应的照片'
    For i = 1 To NameRange.Cells.Count
        If Len(NameRange.Cells(i).Value) > 0 Then
            PicRange.Cells(i).Activate
            ActiveSheet.Pictures.Insert(PicPath & NameRange.Cells(i).Value & ".JPG").Select
            With Selection.ShapeRange
                .LockAspectRatio = msoFalse
                .Width = PicRange.Cells(i).Width
                .Height = PicRange.Cells(i).Height
            End With
        End If
    Next i
End Sub
```

4. 将上述代码中的 "PicPath" 修改为你存放照片的文件夹路径，同时将 "A1:A10" 和 "H1:H10" 修改为你需要插入照片的单元格范围。

5. 按下 "F5" 执行宏命令，即可批量插入照片到对应的单元格中。

注意事项：
1. 请确保照片名与单元格中的文本完全匹配，否则无法插入对应的照片。
2. 请确保要插入照片的单元格已经合适地调整了大小，以免图片显示不完整。