Bild im Image?

Forumthread: Bild im Image?

Bild im Image?

09.10.2007 00:28:00

Olaf

Hallo @ All,
wie kann man feststellen, ob in einem Image(Userform oder Tabelle) bereits
ein Bild geladen wurde? Wenn nicht, dann lade Bild aus Datei, sonst mach nichts.
Grüße Olaf

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

If TypeName(Image1.Picture) = "Nothing" Then

09.10.2007 00:50:00

NoNet
If Image1.Picture Is Nothing Then

09.10.2007 01:01:26

Original
Danke, klappt super! oT

09.10.2007 01:26:00

Olaf

If TypeName(Image1.Picture) = "Nothing" Then

09.10.2007 00:50:00

NoNet

Hallo Olaf,
das kannst Du folgendermassen lösen :

Private Sub UserForm_Initialize()
    If TypeName(Image1.Picture) = "Nothing" Then
        MsgBox "Bild wird JETZT geladen"
        Image1.Picture = LoadPicture("C:\Temp\DeinBild.jpg")
    ElseIf TypeName(Image1.Picture) = "Picture" Then
        MsgBox Image1.Picture, , "Bild bereits geladen !"
    End If
End Sub

Gruß, NoNet

If Image1.Picture Is Nothing Then

09.10.2007 01:01:26

Original

...oder in einer Tabelle:
If Tabelle1.Image1.Picture Is Nothing Then
...wobei Tabelle1 der Codename der Tabelle ist.
mfg Kurt

Danke, klappt super! oT

09.10.2007 01:26:00

Olaf

Forumthread: Bild im Image?

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread