Hogyan lehet gyorsan beilleszteni ugyanazt a képet több munkalapba?
Általában gyorsan beilleszthetünk egy képet egy munkalapba az Excel Beszúrás funkciójának használatával, de megpróbáltuk-e már ugyanazt a képet beszúrni a munkafüzet összes munkalapjába? Ebben a cikkben bemutatok egy hasznos módszert az Ön számára a munka megoldására.
Helyezze ugyanazt a képet a VBA kóddal ellátott munkafüzet összes munkalapjára
Helyezze ugyanazt a képet a VBA kóddal ellátott munkafüzet összes munkalapjára
A következő VBA-kód segítségével könnyedén illeszthet be képet az összes munkalapba, kérjük, tegye a következőket:
1. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.
2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modulok Ablak.
VBA kód: Helyezze ugyanazt a képet az összes munkalapra:
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
Megjegyzések: A fenti kódban C:\Users\DT168\Desktop\pic\logo.png a kép útvonala és neve, és A1 in Range("A1") az a cella, ahová be akarja illeszteni a képet, kérjük, cserélje ki a sajátjára.
3. Ezután nyomja meg a gombot F5 gombot a kód futtatásához, majd az adott képet az összes munkalap A1 cellájába egyszerre illesztették be. Lásd a képernyőképet:
Megjegyzések: A beillesztett képet a cellamérethez igazítják.
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!