Bild auf CommandButton einfügen

Forumthread: Bild auf CommandButton einfügen

22.03.2004 20:15:02

Matthias H.

Hallo zusammen,
ich möchte einem CommandButton ein Bild zuordnen. Das funktioniert prima über das Eigenschaftsfenster. Aber per VBA habe ich es nicht hinbekommen. Meine Idee:
CommandButton11.Picture = "I:\pics\1.bmp"
klappt nicht.
Wenn es dann zugeordnet ist (bisher eben nur manuell) möchte ich es bei Klick auf den CommandButton ausblenden.
Folgendes hat leider nicht geklappt:
CommandButton11.Picture.Visible = False
Kann mir jemand einen Tipp geben? Recherche war leider erfolglos.
Gruß
Matthias

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Bild auf CommandButton einfügen

22.03.2004 20:17:57

Bert
funktioniert, aber noch eine Frage

22.03.2004 20:28:29

Matthias H.
AW: funktioniert, aber noch eine Frage

22.03.2004 20:31:25

Bert

AW: Bild auf CommandButton einfügen

22.03.2004 20:17:57

Bert

CommandButton11.Picture = LoadPicture("I:\pics\1.bmp")
Bild weg:
CommandButton11.Picture = LoadPicture("")
Bert

funktioniert, aber noch eine Frage

22.03.2004 20:28:29

Matthias H.

Hallo Bert,
vielen Dank für die schnelle Antwort. Beides klappt.
Gibt es eine Möglichkeit, das Bild nur auszublenden statt es mit
CommandButton11.Picture = LoadPicture("")
zu löschen? Ich habe eine ganze Menge CommandButtons, denen beim Öffnen der Arbeitsmappe Bilder zugeordnet werden. Zwischenzeitlich sollen sie nur ausgeblendet sein. Das Einblenden soll "universell" erfolgen, d.h. ohne Angabe einer Bildquelle.
Gruß
Matthias

AW: funktioniert, aber noch eine Frage

22.03.2004 20:31:25

Bert

M.W. gibts da keine andere Methode.
Bert

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Um ein Bild auf einem CommandButton in Excel einzufügen, befolge diese Schritte:

Öffne den VBA-Editor: Drücke ALT + F11, um den Visual Basic for Applications (VBA) Editor zu öffnen.
Füge einen CommandButton hinzu: Gehe zu Einfügen > Steuerungselemente > CommandButton.
Zugriff auf das Eigenschaftsfenster: Klicke mit der rechten Maustaste auf den CommandButton und wähle Eigenschaften.
Füge das Bild hinzu: Verwende den folgenden VBA-Code, um ein Bild zu laden:
```
CommandButton11.Picture = LoadPicture("I:\pics\1.bmp")
```
Bild ausblenden: Um das Bild auszublenden, kannst du den folgenden Code verwenden:
```
CommandButton11.Picture = LoadPicture("")
```
Speichere die Änderungen: Vergiss nicht, deine Arbeitsmappe zu speichern.

Häufige Fehler und Lösungen

Fehler beim Laden des Bildes: Wenn das Bild nicht geladen wird, überprüfe den Dateipfad. Stelle sicher, dass der Pfad korrekt ist und die Datei existiert.
Bild bleibt sichtbar: Wenn das Bild nach dem Ausblenden sichtbar bleibt, stelle sicher, dass du den richtigen Code verwendest:
```
CommandButton11.Picture = LoadPicture("")
```
Dies entfernt das Bild vollständig.

Alternative Methoden

Eine alternative Methode, um Bilder dynamisch zu steuern, ist die Verwendung von Shapes. Du kannst ein Bild als Shape hinzufügen und die Sichtbarkeit des Shapes steuern. Hier ist ein Beispiel:

Sub BildSteuern()
    Dim shp As Shape
    Set shp = ActiveSheet.Shapes("Bild1") ' Ersetze "Bild1" mit dem Namen deines Bildes
    shp.Visible = Not shp.Visible ' Schaltet die Sichtbarkeit um
End Sub

Praktische Beispiele

Angenommen, du möchtest mehrere CommandButtons mit Bildern versehen und sie beim Start der Arbeitsmappe ausblenden. Hier ist ein Beispielcode:

Private Sub Workbook_Open()
    CommandButton11.Picture = LoadPicture("I:\pics\1.bmp")
    CommandButton12.Picture = LoadPicture("I:\pics\2.bmp")

    ' Bilder ausblenden
    CommandButton11.Picture = LoadPicture("")
    CommandButton12.Picture = LoadPicture("")
End Sub

Tipps für Profis

Verwende relative Pfade: Anstatt absolute Pfade zu verwenden, kannst du relative Pfade verwenden, um die Portabilität deiner Arbeitsmappe zu verbessern.
Bilder in einer Sammlung speichern: Wenn du viele Bilder verwendest, speichere sie in einer Collection, um die Verwaltung zu erleichtern.
Bilder im Hintergrund laden: Lade Bilder im Hintergrund, um die Benutzeroberfläche nicht zu blockieren.

FAQ: Häufige Fragen

1. Wie kann ich ein Bild auf einem CommandButton ändern?
Um ein Bild zu ändern, kannst du einfach den Code zum Laden des neuen Bildes verwenden:

CommandButton11.Picture = LoadPicture("I:\pics\2.bmp")

2. Ist es möglich, das Bild wieder einblenden, ohne den Pfad anzugeben?
Leider gibt es keine direkte Methode, um Bilder ohne Angabe einer Bildquelle wieder einzublenden. Du müsstest den ursprünglichen Pfad im Code speichern, um das Bild wiederherzustellen.

Beliebteste Forumthreads (12 Monate)