Supportnet / Forum / Tabellenkalkulation

Hallo, ich möchte gerne [b]drei Bilder [/b]mit [b]drei Optionsbutton[/b] steuern, also Bild1 bei Optionsbutton1 usw. Dabei soll aber das Bild [b]nicht importiert [/b]werden, sondern schon im Sheet sein, damit keine extra Daten gepflegt werden müssen. Leider bin ich hier überfordert und deshalb: - wie kann ich das Bild mit dem Optionsbutton an einer Position anzeigen lassen - oder man sieht die drei Bilder klein und bei aktivierung des Optionsbutton wird das Bild vergrößert. Bin für jede Antwort dankbar. Danke.

Hi,

füge die Bilder in die Tabelle ein und mache sie beim Öffnen der Arbeitsmappe unsichtbar (Visible = False). Beim Drücken des CommandButtons setzt du sie auf Visible = True bzw. beim 2. Klick wieder auf False. Hier der Code für einen CommandButton

Private Sub CommandButton1_Click()
    ActiveSheet.Shapes("Bild 1").Visible = Not ActiveSheet.Shapes("Bild 1").Visible
End Sub

Bis später,
Karin

Hi Karin,

klappt fast so, wie ich es mir vorgestellt habe.
Erst einmal vielen DANK.

Aber was muss ich machen damit bei Abwahl des OptionsButton bzw. Wahl eines anderen OptionButton das Bild gleich wieder verschwindet?

Hi,

Option Explicit

Private Sub CommandButton1_Click()
    ActiveSheet.Shapes("Bild 1").Visible = True
    ActiveSheet.Shapes("Bild 2").Visible = False
    ActiveSheet.Shapes("Bild 3").Visible = False
End Sub

Private Sub CommandButton2_Click()
    ActiveSheet.Shapes("Bild 1").Visible = False
    ActiveSheet.Shapes("Bild 2").Visible = True
    ActiveSheet.Shapes("Bild 3").Visible = False
End Sub

Private Sub CommandButton3_Click()
    ActiveSheet.Shapes("Bild 1").Visible = False
    ActiveSheet.Shapes("Bild 2").Visible = False
    ActiveSheet.Shapes("Bild 3").Visible = True
End Sub

Bis später,
Karin

Hallo,

hat wunderbar geklappt. Vielen Dank.

Hätte nicht gedacht das mein Problem so schnell gelöst werden kann.

Gruß

• Flash Player vergrößern?
• C-Partition vergrößern
• Den nächsthöheren Wert einer Spalte anzeigen