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.
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!