Jak sprawdzić, czy kształt lub obraz istnieje w aktywnym arkuszu?
Na przykład do aktywnego arkusza dodano już dziesiątki kształtów lub obrazów, a teraz chcesz sprawdzić, czy określony kształt lub obraz istnieje w aktywnym arkuszu, czy nie, jak możesz szybko wykonać to zadanie bez sprawdzania kształtów lub obrazy jeden po drugim? W programie Excel żadna wbudowana funkcja nie może Ci pomóc, ale w tym artykule wprowadzam kod VBA, aby szybko sprawdzić, czy kształt lub obraz istnieje w aktywnym arkuszu.
Sprawdź, czy kształt lub obraz istnieje w aktywnym arkuszu
Sprawdź, czy kształt lub obraz istnieje w aktywnym arkuszu
Zastosuj poniższy kod makra, aby sprawdzić, czy określony obraz istnieje w aktywnym arkuszu.
1. naciśnij Alt + F11 klucze do włączenia Microsoft Visual Basic for Applications okno.
2. kliknij wstawka > Moduł i wklej poniższy kod do skryptu.
VBA: Sprawdź, czy kształt lub obraz istnieje
Sub CheckImage () 'UpdatebyExtendoffice20170927 Dim xChar As Picture Dim xFlag As Boolean Dim xCharName As String On Error Resume Next Application.ScreenUpdating = False xCharName = "cat" xFlag = False For Each xChar in ActiveSheet.Pictures Debug.Print xChar.Name If xChar.Name = xCharName Then MsgBox "Obraz znajduje się w aktywnym arkuszu", vbInformation, "KuTools For Excel" xFlag = True Exit For End If Next If Not xFlag Then MsgBox "Obraz nie znajduje się w aktywnym arkuszu", vbInformation, "KuTools For Excel" End Jeśli Application.ScreenUpdating = True End Sub
3. naciśnij F5 aby uruchomić kod, pojawi się okno dialogowe przypominające, czy obraz istnieje w aktywnym arkuszu.
Wskazówka: W kodzie makra możesz zmienić nazwę obrazu w xCharName = "kot" aby zaspokoić twoje potrzeby.
Względne artykuły:
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!