如何快速將相同的圖片插入到多個工作表中？

通常，我們可以使用 Excel 中的「插入」功能快速將圖片插入到工作表中，但您是否嘗試過將相同的圖片插入到工作簿的所有工作表中呢？本文將為您介紹一種實用的方法來完成此操作。

使用 VBA 程式碼將相同的圖片插入到工作簿的所有工作表中

使用 VBA 程式碼將相同的圖片插入到工作簿的所有工作表中

以下 VBA 程式碼可幫助您輕鬆將圖片插入到所有工作表中，請按照以下步驟操作：

1. 按住 ALT + F11 鍵以打開 Microsoft Visual Basic for Applications 視窗。

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 是您的圖片路徑和名稱，而 Range("A1") 中的 A1 是您要插入圖片的單元格，請將它們更改為您自己的內容。

3. 然後按 F5 鍵運行程式碼，隨後特定圖片會立即插入到所有工作表的 A1 單元格中。請參見截圖：

注意：插入的圖片將根據單元格大小進行調整。