如何将同一图像快速插入多个工作表？

通常，我们可以使用Excel中的“插入”功能将图片快速插入工作表中，但是，是否曾经尝试过将同一张图片插入工作簿的所有工作表中？ 本文，我将为您介绍一种解决此工作的有用方法。

使用VBA代码将同一图像插入工作簿的所有工作表中

使用VBA代码将同一图像插入工作簿的所有工作表中

以下VBA代码可以帮助您轻松地将图像插入所有工作表，请按以下步骤操作：

1。 按住 ALT + F11 键打开 Microsoft Visual Basic应用程序 窗口。

2。 点击 插页 > 模块，然后将以下代码粘贴到 模块 窗口。

VBA代码：将相同的图片插入所有工作表：

Sub InsertLogo()
    Dim I As Long
    Dim xPath As String
    Dim xShape As Shape
    Dim xRg As Range
    xPath = "C:\Users\DT168\Desktop\pic\logo.png"
    If Dir(xPath) = "" Then
        MsgBox "Picture file was not found in path!", vbInformation, "KuTools for Excel"
        Exit Sub
    End If
    For I = 1 To ActiveWorkbook.Sheets.Count
        Set xRg = Sheets(I).Range("A1")
        Set xShape = Sheets(I).Shapes.AddPicture(xPath, True, True, xRg.Left, xRg.Top, xRg.Width, xRg.Height)
    Next
End Sub

备注：在上面的代码中， C:\Users\DT168\Desktop\pic\logo.png 是图片的路径和名称，以及 A1 in Range("A1") 是您要插入图片的单元格，请更改为您自己的单元格。

3。 然后按 F5 键运行此代码，然后将特定图片立即插入所有工作表的每个单元格A1中。 看截图：

备注：将调整插入的图片以适合像元大小。