Как быстро вставить одно и то же изображение в несколько листов?

Обычно мы можем быстро вставить изображение в лист, используя функцию Вставить в 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 — это путь и имя вашего изображения, а A1 в Диапазон("A1") — это ячейка, куда вы хотите вставить изображение. Пожалуйста, измените их на свои собственные.

3. Затем нажмите клавишу F5, чтобы запустить этот код, и указанное изображение будет вставлено сразу во все ячейки A1 всех листов. См. скриншот:

Примечание: Вставленное изображение будет подогнано под размер ячейки.