Wie prüft man, ob sich eine Form oder ein Bild auf dem aktiven Arbeitsblatt befindet?
Angenommen, auf dem aktiven Arbeitsblatt wurden bereits Dutzende von Formen oder Bildern eingefügt, und Sie möchten nun schnell prüfen, ob eine bestimmte Form oder ein bestimmtes Bild auf dem aktuellen Arbeitsblatt vorhanden ist – ohne jedes Element einzeln durchzugehen. Excel bietet hierfür zwar keine integrierte Funktion, doch dieser Artikel stellt einen VBA-Code vor, mit dem Sie rasch feststellen können, ob die gesuchte Form oder das gesuchte Bild auf dem aktuellen Arbeitsblatt enthalten ist.
Prüfen, ob eine Form oder ein Bild vorhanden ist Aktives Arbeitsblatt
Prüfen, ob eine Form oder ein Bild vorhanden ist Aktives Arbeitsblatt
Wenden Sie den folgenden Makrocode an, um zu prüfen, ob ein bestimmtes Bild im aktuellen Arbeitsblatt vorhanden ist.
1. Drücken Sie Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
2. Klicken Sie auf Einfügen > Modul, und fügen Sie den folgenden Code in das Skript ein.
VBA: Prüfen, ob eine Form oder ein Bild vorhanden ist
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 "The Image is on the Active Sheet", vbInformation, "KuTools For Excel"
xFlag = True
Exit For
End If
Next
If Not xFlag Then
MsgBox "The Image is Not on the Active Sheet", vbInformation, "KuTools For Excel"
End If
Application.ScreenUpdating = True
End Sub
3. Drücken Sie F5, um den Code auszuführen. Es erscheint ein Dialogfeld, das anzeigt, ob das Bild im aktuellen Arbeitsblatt vorhanden ist.
 |  |
Tipp: Im Makrocode können Sie den Namen „Bildname“ in der Zeile xCharName = „cat" entsprechend Ihren Anforderungen anpassen.
Verwandte Artikel:
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins