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

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

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

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

Il seguente codice VBA può aiutarti a inserire facilmente un'immagine in tutti i fogli di lavoro, per favore fai come segue:

1. Tieni premuto il ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.

2. Clic inserire > Modulie incolla il codice seguente nel file Moduli Finestra.

Codice VBA: inserisci 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

Note:: Nel codice sopra, C:\Users\DT168\Desktop\pic\logo.png è il percorso e il nome della tua immagine e A1 in Range("A1") è la cella in cui vuoi inserire l'immagine, per favore cambiala con la tua.

3. Quindi premere F5 chiave per eseguire questo codice, quindi l'immagine specifica è stata inserita in ogni cella A1 di tutto il foglio di lavoro contemporaneamente. Vedi screenshot:

Note:: L'immagine inserita verrà regolata per adattarsi alle dimensioni della cella.