Gruppen

Top Gruppen: Windows 7; Windows Vista; Windows XP; Textverarbeitung; Excel; DSL; Internet Browser; E-Mail/Outlook
Betriebsysteme: Windows classik; Linux; BS-Sonstige
Software: Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; SW-Sonstige
Hardware: Mainboard/CPU; Grafikkarten; Peripherie; Laptop/Notebook; HW-Sonstiges
Netzwerk: Telefon,ISDN,Modem; W-Lan; NW-Sonstiges
Programmierung: PHP,ASP,Perl...; Java,C++...; Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke; SN Intern; Test

/ Forum / Tabellenkalkulation

Tabellenkalkulation

Fragevon neueinsteiger vom 07.03.2019, 19:04 Options

Bild bei Wert vergrößern bzw. anzeigen

Hallo,
ich möchte gerne drei Bilder mit drei Optionsbutton steuern, also Bild1 bei Optionsbutton1 usw.

Dabei soll aber das Bild nicht importiert 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.

Antwort schreiben

Antwort 1 von Beverly vom 07.03.2019, 19:28 Options

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

Antwort 2 von neueinsteiger vom 07.03.2019, 21:25 Options

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?

Antwort 3 von Beverly vom 08.03.2019, 06:00 Options

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

Antwort 4 von neueinsteiger vom 08.03.2019, 15:50 Options

Hallo,

hat wunderbar geklappt. Vielen Dank.

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

Gruß

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Tipp einschicken

News einschicken