Jak usunąć wszystkie zdjęcia z zakresu komórek?
Jeśli w arkuszu znajduje się wiele obrazów, teraz chcesz usunąć niektóre z nich w określonym zakresie, jak szybko sobie z tym poradzisz?
Usuń wszystkie obrazy w określonym zakresie komórek z kodem VBA
Usuń wszystkie zdjęcia w arkuszu lub całym skoroszycie za pomocą Kutools for Excel
Usuń wszystkie obrazy w określonym zakresie komórek z kodem VBA
Oto prosty kod VBA, który może pomóc w usunięciu obrazów w wybranym zakresie bez usuwania ich jeden po drugim, 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: usuń wszystkie zdjęcia w wybranym zakresie komórek:
Sub DeletePic()
Dim xPicRg As Range
Dim xPic As Picture
Dim xRg As Range
Application.ScreenUpdating = False
Set xRg = Range("A5:B8")
For Each xPic In ActiveSheet.Pictures
Set xPicRg = Range(xPic.TopLeftCell.Address & ":" & xPic.BottomRightCell.Address)
If Not Intersect(xRg, xPicRg) Is Nothing Then xPic.Delete
Next
Application.ScreenUpdating = True
End Sub
Note: W powyższym kodzie, A5: B8 to zakres, z którego chcesz usunąć zdjęcia, zmień go zgodnie z potrzebami.
3. Następnie naciśnij F5 aby uruchomić ten kod, a zdjęcia w wybranym zakresie zostały natychmiast usunięte, patrz zrzut ekranu:
Usuń wszystkie zdjęcia w arkuszu lub całym skoroszycie za pomocą Kutools for Excel
Jeśli chcesz usunąć wszystkie obrazy z arkusza lub skoroszytu, plik Kutools dla programu Excel 's Usuń ilustracje i obiekty narzędzie może wyświadczyć ci przysługę.
Kutools dla programu Excel : z ponad 300 poręcznymi dodatkami Excela, które można wypróbować bez ograniczeń w ciągu 30 dni. |
Po zainstalowaniu Kutools dla programu Excelwykonaj następujące czynności:
1. Kliknij Kutools > Usuń > Usuń ilustracje i obiektyzobacz zrzut ekranu:
2, w Usuń ilustracje i obiekty okno dialogowe, zaznacz Zdjęcia z Usuń sekcji, a następnie wybierz zakres, z którego chcesz usunąć zdjęcia pod zaglądać sekcja, patrz zrzut ekranu:
3. Następnie kliknij Ok przycisk, a wszystkie wybrane zdjęcia zostaną usunięte z arkusza roboczego lub całego skoroszytu.
Kliknij, aby pobrać Kutools dla programu Excel i bezpłatną wersję próbną teraz!
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!