Come inserire la stessa immagine in più fogli di lavoro rapidamente?

Normalmente, possiamo inserire un'immagine in un foglio di lavoro rapidamente utilizzando la funzione Inserisci in Excel, ma avete mai provato a inserire la stessa immagine in tutti i fogli di lavoro della vostra cartella di lavoro? In questo articolo, vi presenterò un metodo utile per risolvere questa operazione.

Inserire la stessa immagine in tutti i fogli di lavoro della cartella con il codice VBA

Inserire la stessa immagine in tutti i fogli di lavoro della cartella con il codice VBA

Il seguente codice VBA può aiutarvi a inserire un'immagine in tutti i fogli di lavoro con facilità, procedete come segue:

1. Tenere premuti i tasti ALT + F11 per aprire la finestra Microsoft Visual Basic for Applications.

2. Cliccare su Inserisci > Modulo e incollare il seguente codice nella Finestra del Modulo.

Codice VBA: Inserire la stessa immagine in tutti i fogli di lavoro:

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

Nota: Nel codice sopra, C:\Users\DT168\Desktop\pic\logo.png è il percorso e il nome della vostra immagine, e A1 in Intervallo("A1") è la cella dove volete inserire l'immagine, cambiateli con i vostri.

3. Quindi premete il tasto F5 per eseguire questo codice, e l'immagine specifica verrà inserita in ogni cella A1 di tutti i fogli di lavoro contemporaneamente. Vedere screenshot:

Nota: L'immagine inserita verrà adattata per adattarsi alle dimensioni della cella.