如何在 Excel 中插入图像链接的说明

有关如何在 Excel 中将链接插入现有图像的说明

步骤1：要在 Excel 中插入照片链接，首先需要打开包含所需图片的网站。然后右键单击该图片，并选择复制图片地址。

第 2 步：接下来，打开要插入图片链接的 Excel 文件。然后右键单击要插入图片链接的位置。出现滚动条时，选择关联。

步骤3：此时，将出现“插入超链接”对话框。单击项目现有文件或网页。然后转到侧边菜单栏并点击该项目浏览过的页面现在您需要将复制的图像链接粘贴到该部分中。地址。输入后，按好的插入图像链接。

步骤4：成功插入链接后，将鼠标移动到插入链接的单元格，就会出现图片链接。

如果您想打开该图片，只需左键单击该链接即可。包含该图片的网站将快速打开。

使用 VBA 将图像链接插入 Excel 的说明

按 Alt + F11 打开 Visual Basic for Applications (VBA) 编辑器。

转到插入 > 选择模块。

在新模块中输入以下 VBA 代码：

Sub InsertImageFromURL() Dim ws As Worksheet Dim imageURL As String Dim pic As Object Dim rng As Range ' 选择包含图像 URL 的工作表和单元格 Set ws = ActiveSheet Set rng = ws.Range("A1") ' 将 A1 替换为包含图像链接的单元格 ' 从单元格获取图像链接 imageURL = rng.Value ' 检查单元格是否具有有效的 URL 如果 imageURL = "" 则 MsgBox "单元格不包含图像链接！", vbExclamation, "Error" Exit Sub End If ' 将图像添加到 Excel Set pic = ws.Pictures.Insert(imageURL) ' 根据单元格对齐图像大小 With pic .ShapeRange.LockAspectRatio = msoFalse .Left = rng.Left .Top = rng.Top .Width = rng.Width .Height = rng.Height End With ' 释放内存 Set pic = Nothing Set ws = Nothing Set rng = 无 End Sub

将图像链接放在单元格 A1 中（或另一个单元格，但您必须在代码中更改 rng = ws.Range("A1")）。

返回 Excel 窗口，按 Alt + F8，选择 InsertImageFromURL，然后按运行。

图像将自动下载并显示在单元格 A1 中。

此 VBA 代码适用于 Excel 2016 及更高版本。

如果您希望在输入链接时自动显示图像，则可以为 Worksheet_Change 分配一个宏以自动运行。