如何在 Excel 中显示来自多个文件路径的图片?

ms excelmicrosoft technologiescomputers更新于 2024/8/15 3:24:17

无论您是制作报告、演示文稿，还是仅仅以图形方式组织数据，向 Excel 工作表添加图片都是提升工作表质量的绝佳方法。虽然 Excel 本身支持从文件路径导入照片，但如果您需要显示大量图片，这样做可能会非常费力且耗时。

在本教程中，我们将介绍一种在 Excel 中快速轻松地显示来自不同文件目录的大量照片的方法。为了自动化图片呈现并帮助您节省大量时间和精力，我们将利用 Excel 的内置功能，例如公式和宏。

在 Excel 中显示来自多个文件路径的图片

在这里，我们将首先创建一个 VBA 模块，然后运行它来完成任务。让我们通过一个简单的过程来学习如何在 Excel 中显示来自一系列文件路径的图像。

步骤 1

假设有一个 Excel 工作表，其中包含与下图类似的文件路径列表。

首先，右键单击工作表名称，选择"查看代码"以打开 VBA 应用程序。然后点击"插入"，并选择"模块"。

右键单击 > 查看代码 > 插入 > 模块。

步骤 2

然后将以下代码复制到文本框中。

代码

Sub InsertPicFromFile()
   Dim xRg As Range
   Dim xCell As Range
   Dim xVal As String
   On Error Resume Next
   Set xRg = Application.InputBox("Please select file path cells:", "Display images path", Selection.Address, , , , , 8)
   If xRg Is Nothing Then Exit Sub
   Application.ScreenUpdating = False
   For Each xCell In xRg
      xVal = xCell.Value
      If xVal <> "" Then
         ActiveSheet.Shapes.AddPicture xCell.Value, msoFalse, msoTrue, _
         xCell.Offset(0, 1).Left, xCell.Top, xCell.Height, _
         xCell.Height
      End If
   Next
   Application.ScreenUpdating = True
End Sub