Jak szybko wstawić ten sam obraz do wielu arkuszy?
Zwykle możemy szybko wstawić obraz do arkusza za pomocą funkcji Wstaw w programie Excel, ale czy kiedykolwiek próbowałeś wstawić ten sam obraz do wszystkich arkuszy w skoroszycie? W tym artykule przedstawię przydatną metodę rozwiązania tej pracy.
Wstaw ten sam obraz do wszystkich arkuszy roboczych skoroszytu z kodem VBA
Wstaw ten sam obraz do wszystkich arkuszy roboczych skoroszytu z kodem VBA
Poniższy kod VBA może pomóc w łatwym wstawieniu obrazu do wszystkich arkuszy roboczych, wykonaj następujące czynności:
1. Przytrzymaj ALT + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.
2. Kliknij wstawka > Modułi wklej następujący kod w Moduł Okno.
Kod VBA: wstaw to samo zdjęcie do wszystkich arkuszy roboczych:
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: W powyższym kodzie, C:\Users\DT168\Desktop\pic\logo.png to ścieżka i nazwa twojego obrazu, i A1 in Range("A1") to komórka, w której chcesz wstawić zdjęcie, zmień je na własne.
3. Następnie naciśnij F5 klawisz, aby uruchomić ten kod, a następnie określony obraz został wstawiony do każdej komórki A1 całego arkusza na raz. Zobacz zrzut ekranu:
Note: Wstawiony obraz zostanie dostosowany do rozmiaru komórki.
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!