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.
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!