Wie überprüfe ich, ob eine Zelle ein Bild in Excel enthält?
Es ist einfach, alle Bilder in einem aktiven Arbeitsblatt in Excel zu finden und auszuwählen. Aber wissen Sie, wie Sie überprüfen können, ob eine Zelle ein Bild in Excel enthält? Eine Methode in diesem Artikel kann Ihnen helfen.
Überprüfen Sie, ob eine Zelle ein Bild mit VBA-Code enthält
Überprüfen Sie, ob eine Zelle ein Bild mit VBA-Code enthält
Mit dem folgenden VBA-Code können Sie überprüfen, ob eine Zelle ein Bild enthält. Bitte gehen Sie wie folgt vor.
1. Öffnen Sie das Arbeitsblatt, das Sie benötigen, um zu überprüfen, ob das Bild in einer bestimmten Zelle vorhanden ist, und drücken Sie dann die Taste Andere + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.
2. In dem Microsoft Visual Basic für Applikationen Klicken Sie im Fenster Insert > Modul. Kopieren Sie dann den VBA-Code und fügen Sie ihn in das Codefenster ein.
VBA-Code: Überprüfen Sie, ob eine Zelle ein Bild in Excel enthält
Sub CellHasPicture()
Dim xRg As Range
Dim xShape As Shape
Dim xFlag As Boolean
On Error Resume Next
Set xRg = Application.InputBox("Please enter the cell address:", "KuTools For Excel", Selection.Address, , , , , 8)
If xRg Is Nothing Then Exit Sub
xFlag = False
For Each xShape In ActiveSheet.Shapes
If xShape.TopLeftCell.Address = xRg.Address Then
xFlag = True
End If
Next
If xFlag Then
MsgBox "Image exists!"
Else
MsgBox "Image does not exist"
End If
End Sub3. Drücken Sie die Taste F5 Schlüssel zum Ausführen des Codes. Beim Auftauchen Kutools for Excel Geben Sie im Dialogfeld bitte die Zelle ein, in der Sie überprüfen möchten, ob sie ein Bild enthält, und klicken Sie dann auf OK Taste. Siehe Screenshot:
4. Dann erscheint ein Dialogfeld (siehe Screenshot unten), ob in der angegebenen Zelle ein Bild vorhanden ist oder nicht.
Weitere Artikel:
- Wie ändere ich automatisch alle Bilder, um sie mit Zellen in Excel zu verschieben und in der Größe zu ändern?
- Wie zentriere ich ein Bild in einer Excel-Zelle?
- Wie füge ich ein Bild oder Bild dynamisch in eine Zelle ein, basierend auf dem Zellenwert in Excel?
- Wie kann ich ein Bild vergrößern, wenn ich in Excel darauf klicke?
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!
