Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Bild in Userform loeschen

Forumthread: Bild in Userform loeschen

Bild in Userform loeschen
18.11.2002 05:03:00
Joerg
hallo Leute
mit folgender Zeile lade ich eine Gif-Datei in ein Userform Image ein. Userform1.Image1.Picture = LoadPicture("c:\Test.gif")
Das ganze ist abhaengig von der Auswahl in einer Combobox(ComboBox1_Change). Wie kann ich das Image nochmal entfernen, wenn ich z.B. keine Gif-Datei angezeigt haben will?
Gruss
Joerg
Anzeige

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

Betreff
Datum
Anwender
Anzeige
Re: Bild in Userform loeschen
18.11.2002 06:05:15
Hans W. Herber
Hallo Jörg,

setze die Visible-Eigenschaft von Image1 auf FALSE.

hans

Re: Bild in Userform loeschen
18.11.2002 10:23:29
Thomas Risi
Hallo Joerg

Versuch's mal so ...


Private Sub CommandButton2_Click()
    Image1.Picture = LoadPicture("")
End Sub
 
     Code eingefügt mit Syntaxhighlighter 1.15

Gruß

Thomas

Risi Thomas Softwareentwicklung


Anzeige
Danke, klappt bestens
18.11.2002 12:34:18
Joerg
o.T.
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige

Infobox / Tutorial

Bild in Userform löschen


Schritt-für-Schritt-Anleitung

Um ein Bild in einer Userform zu löschen, kannst du folgende Schritte befolgen:

  1. Bild laden: Zuerst lädst du ein Bild in dein Userform. Das machst du mit der folgenden Zeile:

    Userform1.Image1.Picture = LoadPicture("c:\Test.gif")
  2. Bild entfernen: Wenn du das Bild wieder entfernen möchtest, gibt es mehrere Möglichkeiten:

    • Setze die Visible-Eigenschaft des Bildes auf FALSE:
      Userform1.Image1.Visible = False
    • Alternativ kannst du die Picture-Eigenschaft auf einen leeren String setzen:
      Userform1.Image1.Picture = LoadPicture("")
  3. Kombination mit ComboBox: Du kannst das Bild dynamisch je nach Auswahl in einer ComboBox ändern. Füge den Code in das ComboBox1_Change-Ereignis ein.


Häufige Fehler und Lösungen

  • Bild wird nicht angezeigt: Stelle sicher, dass der Pfad zur Bilddatei korrekt ist. Überprüfe, ob die Datei tatsächlich an dem angegebenen Ort existiert.

  • Bild entfernt sich nicht: Wenn das Bild nicht verschwindet, überprüfe die Visible-Eigenschaft. Setze sie auf FALSE oder setze die Picture-Eigenschaft auf LoadPicture("").


Alternative Methoden

Eine alternative Methode ist, die Picture-Eigenschaft nicht nur auf einen leeren String zu setzen, sondern auch das Bild komplett aus dem Speicher zu entfernen. Du kannst dies durch das Setzen der Picture-Eigenschaft auf Nothing erreichen:

Set Userform1.Image1.Picture = Nothing

Praktische Beispiele

Hier ist ein einfaches Beispiel, um das Bild je nach Auswahl in einer ComboBox zu ändern:

Private Sub ComboBox1_Change()
    Select Case ComboBox1.Value
        Case "Bild1"
            Image1.Picture = LoadPicture("c:\Bild1.gif")
        Case "Bild2"
            Image1.Picture = LoadPicture("c:\Bild2.gif")
        Case "Kein Bild"
            Image1.Picture = LoadPicture("")
    End Select
End Sub

In diesem Beispiel wird das Bild entsprechend der Auswahl in der ComboBox geladen oder entfernt.


Tipps für Profis

  • Verwende Option Explicit: Dies hilft dir, Fehler durch nicht deklarierte Variablen zu vermeiden.
  • Fehlerbehandlung einbauen: Nutze On Error Resume Next, um sicherzustellen, dass dein Code auch bei fehlenden Bilddateien nicht abstürzt.
  • Bildformate: Achte darauf, dass das Bildformat von Excel unterstützt wird. GIF- und BMP-Dateien sind in der Regel sicher.

FAQ: Häufige Fragen

1. Wie kann ich ein Bild in einer Userform dynamisch ändern?
Du kannst das Bild je nach Auswahl in einer ComboBox oder anderen Steuerelementen ändern, indem du die Picture-Eigenschaft anpasst.

2. Was mache ich, wenn das Bild nicht geladen wird?
Überprüfe den Pfad zur Bilddatei und stelle sicher, dass die Datei im richtigen Format vorliegt und am angegebenen Ort existiert.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige