Bild per Schaltfläche einfügen (VBA nötig)

[snb]

Wenn man die Namen der Optionsfelder die Namen "O_Biene" und "O_Hase" gibt, und beide Optionsfelder mit dem Macro "Tabelle1.M_Bild" verknüpft, reicht dieser Code im Makromodul der Tabelle1:

Code:

Sub M_Bild()
 For Each sh In ActiveSheet.Pictures
  sh.Visible = sh.Name = Mid(Application.Caller, 3)
 Next
End Sub

[Guru]

Hallo,

danke euch allen für die Hilfe.

Werde es die Woche Abends nochmal in Ruhe probieren. 
Scheint bisher einfach nicht zu klappen.

Gebe Bescheid, wenn ichs geschafft habe.

Danke und schönen Abend an Alle.

[Guru]

Ist das genial oder ist das genial  :05:

Vielen, lieben Dank für eure Unterstützung.

snb Umsetzung (danke aber auch für alle anderen) war für mich am Einfachsten umzusetzen. 

Lieben Dank und VG