Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Image
BildScreenshot zu Image Image-Seite mit Beispielarbeitsmappe aufrufen

Bild im Image?

Betrifft: Bild im Image? von: Olaf
Geschrieben am: 08.10.2007 22:28:24

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

  

Betrifft: If TypeName(Image1.Picture) = "Nothing" Then von: NoNet
Geschrieben am: 08.10.2007 22:50:26

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
Code eingefügt mit Syntaxhighlighter 4.12

Gruß, NoNet


  

Betrifft: If Image1.Picture Is Nothing Then von: Original Kurt
Geschrieben am: 08.10.2007 23:01:26

...oder in einer Tabelle:

If Tabelle1.Image1.Picture Is Nothing Then

...wobei Tabelle1 der Codename der Tabelle ist.

mfg Kurt


  

Betrifft: Danke, klappt super! oT von: Olaf
Geschrieben am: 08.10.2007 23:26:08

oT


 

Beiträge aus den Excel-Beispielen zum Thema "Bild im Image?"