Cum să inserați rapid aceeași imagine în mai multe foi de lucru?

În mod normal, putem insera o imagine într-o foaie de lucru rapid utilizând funcția Inserare în Excel, dar ați încercat vreodată să inserați aceeași imagine în toate foile de lucru din registrul dvs. de lucru? În acest articol, voi introduce o metodă utilă pentru a rezolva această sarcină.

Introduceți aceeași imagine în toate foile de lucru ale registrului de lucru cu cod VBA

Introduceți aceeași imagine în toate foile de lucru ale registrului de lucru cu cod VBA

Următorul cod VBA vă poate ajuta să inserați cu ușurință o imagine în toate foile de lucru, vă rugăm să faceți acest lucru:

1. Țineți apăsat butonul ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. Clic Insera > Moduleși lipiți următorul cod în Module Fereastră.

Cod VBA: introduceți aceeași imagine în toate foile de lucru:

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

notițe: În codul de mai sus, C:\Users\DT168\Desktop\pic\logo.png este calea și numele imaginii dvs. și A1 in Range("A1") este celula în care doriți să inserați imaginea, vă rugăm să le schimbați la a dvs.

3. Apoi apăsați F5 tasta pentru a rula acest cod, iar apoi imaginea specifică a fost inserată în fiecare celulă A1 a tuturor foilor de lucru simultan. Vedeți captura de ecran:

notițe: Imaginea inserată va fi ajustată pentru a se potrivi dimensiunii celulei.