Wie überprüfe ich, ob eine Form oder ein Bild im aktiven Blatt vorhanden ist?
Beispielsweise wurden dem aktiven Arbeitsblatt bereits Dutzende von Formen oder Bildern hinzugefügt, und jetzt möchten Sie überprüfen, ob im aktiven Blatt eine bestimmte Form oder ein bestimmtes Bild vorhanden ist oder nicht. Wie können Sie diesen Auftrag schnell ausführen, ohne die Formen oder zu überprüfen? Bilder eins nach dem anderen? In Excel kann Ihnen keine integrierte Funktion helfen. In diesem Artikel stelle ich jedoch einen VBA-Code vor, um schnell festzustellen, ob im aktiven Blatt eine Form oder ein Bild vorhanden ist.
Überprüfen Sie, ob im aktiven Blatt eine Form oder ein Bild vorhanden ist
Überprüfen Sie, ob im aktiven Blatt eine Form oder ein Bild vorhanden ist
Bitte wenden Sie den folgenden Makrocode an, um zu überprüfen, ob ein bestimmtes Bild im aktiven Blatt vorhanden ist.
1. Drücken Sie Alt + F11 zu aktivierende Tasten Microsoft Visual Basic für Applikationen Fenster.
2 Klicken Insert > Modul und fügen Sie den folgenden Code in das Skript ein.
VBA: Überprüfen Sie, 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 Für jedes xChar in ActiveSheet.Pictures Debug.Print xChar.Name If xChar.Name = xCharN MsgBox "Das Bild befindet sich auf dem aktiven Blatt", vbInformation, "KuTools für Excel" xFlag = True Beenden für Ende Wenn Weiter Wenn nicht xFlag Dann MsgBox "Das Bild befindet sich nicht auf dem aktiven Blatt", vbInformation, "KuTools für Excel" Ende Wenn Application.ScreenUpdating = True End Sub
3. Drücken Sie F5 Um den Code auszuführen, wird ein Dialogfeld angezeigt, das Sie daran erinnert, ob das Bild im aktiven Blatt vorhanden ist.
Tipp: Im Makrocode können Sie den Bildnamen in ändern xCharName = "cat" um deine Bedürfnisse zu erfüllen.
Relative 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, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!