VBA: Prüfen, ob Picturebox in Tabellenblatt leer

Computer: Software & Programmierung Visual Basic
#1

Hallo Experten,

ich versuche eine If-Abfrage zu programmieren, welche prüft, ob eine Picturebox leer ist oder ob ein Bild geladen ist. Ich hatte an folgende Lösung gedacht:

If Tabelle1.Image1.Picture = 0 Then
…
Else
…
End If

Leider funktioniert das so nicht. Wenn die Picturebox tatsächlich kein Bild enthält(Tabelle1.Image1.Picture = Nothing), erhalte ich den Fehler:

„Objektvariable oder With-Blockvariable nicht festgelegt.“

Wenn ein Bild vorhanden ist dann wird die If-Abfrage ausgeführt.
Kann mir bitte jemand helfen mein Problem zu lösen?

Vielen Dank schonmal.

Gruß
Thomas

#2

Hallo,

mal versucht mit

if isNull(Tabelle1.Image1.Picture) then …

Tschau
Peter

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

#3

Hallo, Thomas!

If Tabelle1.Image1.Picture Is Nothing Then

…
Else
…
End If

Dat sollte es jewesen sein.

Gruß, Manfred

#4

Hallo,

mal versucht mit

if isNull(Tabelle1.Image1.Picture) then …

Tschau
Peter

Hallo Peter,

danke für die schnelle Antwort. Mit IsNull() bekomme ich keinen Fehler mehr, aber der Wert von IsNull wird False gesetzt, obwohl kein Bild in Image1 vorhanden ist. Hilft mir also nicht direkt weiter…

Gruß
Thomas

#5

Hallo Manfred,

vielen Dank. Genau das habe ich gesucht. Jetzt funktioniert meine Abfrage.

Gruß
Thomas

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]