怎么把多个图片放进excel表格

将多个图片放进Excel表格的方法包括：使用插入图片功能、使用批量插入宏代码、调整图片尺寸以适应单元格大小、使用链接插入图片。 其中，使用批量插入宏代码是一种非常高效的方法，尤其适用于需要一次性插入大量图片的情况。下面将详细描述这种方法。

一、使用插入图片功能

1. 插入单张图片

插入图片的最简单方法是使用Excel内置的“插入”功能。具体步骤如下：

打开Excel表格，点击菜单栏中的“插入”选项。
选择“图片”按钮，然后选择“来自文件”。
在弹出的对话框中，浏览并选择需要插入的图片，点击“插入”按钮。

这种方法适用于插入少量图片，步骤简单快捷。

2. 调整图片尺寸

插入图片后，可能需要调整图片的尺寸以适应表格的布局。具体步骤如下：

选中插入的图片，图片周围会出现调整框。
拖动调整框的角点，可以保持图片比例进行缩放；拖动边框的中点，可以单独调整宽度或高度。
调整图片大小后，可以将其拖动到需要的位置。

这一步可以确保图片在表格中排列整齐，显得更加美观。

二、使用批量插入宏代码

1. 开启开发者选项

如果需要批量插入多张图片，可以使用Excel的宏功能。首先，需要开启开发者选项：

打开Excel表格，点击菜单栏中的“文件”选项。
选择“选项”，在弹出的对话框中点击“自定义功能区”。
在右侧的“主选项卡”列表中，勾选“开发工具”选项，点击“确定”。

2. 编写宏代码

在开发者选项中，可以编写宏代码实现批量插入图片：

点击“开发工具”选项卡中的“Visual Basic”按钮，打开VBA编辑器。
在VBA编辑器中，点击“插入”菜单，选择“模块”。
在新的模块窗口中，输入以下代码：

Sub BatchInsertPictures()
    Dim ws As Worksheet
    Dim PicPath As String
    Dim PicName As String
    Dim Pic As Picture
    Dim i As Integer
    Dim LastRow As Long
    ' 修改为图片文件夹路径
    PicPath = "C:YourPictureFolderPath"
    ' 获取当前工作表
    Set ws = ThisWorkbook.Sheets(1)
    ' 获取最后一行
    LastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    ' 遍历文件夹中的图片
    i = 1
    PicName = Dir(PicPath & "*.jpg")
    Do While PicName <> ""
        ' 插入图片
        Set Pic = ws.Pictures.Insert(PicPath & PicName)
        ' 调整图片位置和大小
        With Pic
            .Left = ws.Cells(i, 1).Left
            .Top = ws.Cells(i, 1).Top
            .Width = ws.Cells(i, 1).Width
            .Height = ws.Cells(i, 1).Height
        End With
        ' 获取下一张图片
        PicName = Dir
        i = i + 1
    Loop
End Sub

修改代码中的图片文件夹路径（PicPath）为你自己的图片文件夹路径。

3. 运行宏代码

返回Excel表格，点击“开发工具”选项卡中的“宏”按钮，选择刚刚创建的“BatchInsertPictures”宏，点击“运行”按钮。宏代码将自动遍历文件夹中的所有图片，并将它们按顺序插入到表格中。

三、调整图片尺寸以适应单元格大小

1. 自动调整图片大小

为了使图片自动调整大小以适应单元格，可以在插入图片后使用VBA代码：

Sub ResizePictures()
    Dim Pic As Picture
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets(1)
    For Each Pic In ws.Pictures
        With Pic
            .Left = .TopLeftCell.Left
            .Top = .TopLeftCell.Top
            .Width = .TopLeftCell.Width
            .Height = .TopLeftCell.Height
        End With
    Next Pic
End Sub

运行该宏代码，所有图片将自动调整大小以适应其所在的单元格。

2. 手动调整图片大小

如果不想使用宏代码，也可以手动调整图片大小：

选中图片。
右键点击图片，选择“大小和属性”。
在“大小”选项卡中，可以输入具体的高度和宽度值，也可以勾选“锁定纵横比”选项，以保持图片比例。

四、使用链接插入图片

1. 创建图片链接

有时，直接插入图片可能会增加Excel文件的大小。此时，可以选择使用链接插入图片：

在Excel表格中，选中需要插入图片的单元格。
点击菜单栏中的“插入”选项，选择“链接”按钮。
在弹出的对话框中，输入图片的文件路径或网址，点击“确定”。

2. 显示图片预览

为了在单元格中显示图片预览，可以使用以下方法：

在单元格中输入图片文件路径或网址。
在相邻单元格中，使用“超链接”函数创建链接：=HYPERLINK(A1, "点击查看图片")
使用VBA代码将链接转换为图片预览：

Sub DisplayPicturePreviews()
    Dim ws As Worksheet
    Dim Pic As Picture
    Dim Cell As Range
    Dim PicPath As String
    Set ws = ThisWorkbook.Sheets(1)
    For Each Cell In ws.Range("A1:A10") ' 修改范围
        PicPath = Cell.Value
        If PicPath <> "" Then
            Set Pic = ws.Pictures.Insert(PicPath)
            With Pic
                .Left = Cell.Offset(0, 1).Left
                .Top = Cell.Offset(0, 1).Top
                .Width = Cell.Offset(0, 1).Width
                .Height = Cell.Offset(0, 1).Height
            End With
        End If
    Next Cell
End Sub

运行该宏代码，将在相邻单元格中显示图片预览。

五、总结

将多个图片放进Excel表格的方法多种多样，具体选择哪种方法取决于实际需求和操作习惯。使用插入图片功能适用于少量图片的手动操作，使用批量插入宏代码则适用于大量图片的批量处理。调整图片尺寸以适应单元格大小可以确保图片在表格中排列整齐，而使用链接插入图片则可以有效减少文件大小。无论选择哪种方法，都可以通过合理的操作和调整，使图片在Excel表格中得到最佳展示效果。