Sub tt()
Dim o As Object
On Error Resume Next
Set o = Sheets(1).Pictures("Picture 1")
On Error GoTo 0
MsgBox IIf(o Is Nothing, "nicht ", "") & "da"
End Sub
Sub tt()
Dim o As Object
On Error Resume Next
Set o = Sheets(1).Pictures("Picture 1")
On Error GoTo 0
MsgBox IIf(o Is Nothing, "nicht ", "") & "da"
Stelle = Sheets(1).Pictures("Picture 1").TopLeftCell.Address
Range(Stelle).Select
End Sub
ich möchte prüfen ob ein Bild (Picture 1) überhaupt in der Tabelle vorhanden ist.
Stelle = Sheets(1).Pictures("Picture 1").TopLeftCell.Address
Range(Stelle).Select
Sub grafik_finden()
If ActiveSheet.Shapes("Picture 1").Visible = True Then
MsgBox "Grafik vorhanden!"
ActiveSheet.Shapes("Picture 1").Select
Stelle = ActiveSheet.Shapes("Picture 1").TopLeftCell.Address
Range(Stelle).Select
End If
If ActiveSheet.Shapes("Picture 1").Visible = False Then
ActiveSheet.Shapes("Picture 1").Visible = True
MsgBox "Grafik vorhanden!"
Stelle = ActiveSheet.Shapes("Picture 1").TopLeftCell.Address
Range(Stelle).Select
End If
End Sub
Um zu prüfen, ob ein Bild (z.B. "Picture 1") in einer Excel-Tabelle vorhanden ist, kannst Du den folgenden VBA-Code verwenden. Dieser Code zeigt eine Nachricht an, wenn das Bild nicht vorhanden ist, oder selektiert das Bild, wenn es gefunden wird.
Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
Klicke auf Einfügen und wähle Modul, um ein neues Modul zu erstellen.
Füge den folgenden Code in das Modul ein:
Sub bild_pruefen()
Dim o As Object
On Error Resume Next
Set o = Sheets(1).Pictures("Picture 1")
On Error GoTo 0
MsgBox IIf(o Is Nothing, "Bild nicht vorhanden.", "Bild vorhanden!")
If Not o Is Nothing Then
o.Select
End If
End SubSchließe den VBA-Editor und gehe zurück zu Excel.
Drücke ALT + F8, wähle bild_pruefen und klicke auf Ausführen.
Mit diesem Code kannst Du einfach prüfen, ob das Bild vorhanden ist oder nicht.
Fehler: "Laufzeitfehler 91: Objektvariable oder With-Blockvariable nicht festgelegt."
Fehler: "Das Bild wird nicht selektiert, obwohl es vorhanden ist."
Sheets(1)-Teil im Code auf den entsprechenden Tabellennamen.Eine alternative Methode, um zu prüfen, ob Bilder in einer Excel-Datei vorhanden sind, ist die Verwendung von Shapes. Hier ist ein Beispiel:
Sub grafik_finden()
If ActiveSheet.Shapes("Picture 1").Visible = True Then
MsgBox "Grafik vorhanden!"
ActiveSheet.Shapes("Picture 1").Select
Else
MsgBox "Bild nicht vorhanden."
End If
End SubDieser Code prüft, ob das Bild sichtbar ist und selektiert es, wenn es vorhanden ist.
Bild in einer spezifischen Zelle prüfen: Wenn Du sicherstellen möchtest, dass das Bild in einer bestimmten Zelle platziert ist, kannst Du den Code anpassen, um die Adresse der Zelle zu überprüfen.
Mehrere Bilder prüfen: Um mehrere Bilder zu prüfen, kannst Du eine Schleife verwenden, um die Namen der Bilder in einem Array zu speichern und sie nacheinander zu überprüfen.
Sub mehrere_bilder_pruefen()
Dim bildNamen As Variant
Dim i As Integer
bildNamen = Array("Picture 1", "Picture 2", "Picture 3")
For i = LBound(bildNamen) To UBound(bildNamen)
If Not Sheets(1).Pictures(bildNamen(i)) Is Nothing Then
MsgBox bildNamen(i) & " vorhanden."
Else
MsgBox bildNamen(i) & " nicht vorhanden."
End If
Next i
End SubFehlerbehandlung: Verwende On Error Resume Next, um Laufzeitfehler zu vermeiden, aber stelle sicher, dass Du danach On Error GoTo 0 verwendest, um die Fehlerbehandlung zurückzusetzen.
Namen von Bildern: Achte darauf, dass die Namen der Bilder in Excel keine Leerzeichen oder Sonderzeichen enthalten, um Probleme beim Zugriff zu vermeiden.
Komplexere Prüfungen: Du kannst auch Attribute wie Visible oder Locked verwenden, um festzustellen, ob das Bild nutzbar ist.
1. Wie kann ich prüfen, ob mehrere Bilder vorhanden sind?
Du kannst eine Schleife verwenden, um die Namen der Bilder in einem Array zu speichern und sie dann nacheinander zu überprüfen.
2. Was mache ich, wenn das Bild nicht angezeigt wird?
Stelle sicher, dass das Bild nicht ausgeblendet oder auf einer anderen Tabelle versteckt ist. Überprüfe auch, ob der Name des Bildes korrekt ist.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen