Gruppe
Grafik
Bereich
Einsetzen
Thema
Grafiken nach dem Zufallsprinzip anzeigen
Problem
Bei Betätigung von F9 soll nach dem Zufallsprinzip eine von 3 Grafiken angezeigt werden.
Lösung
Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.
ClassModule: Tabelle1
Private Sub Worksheet_Calculate()
If Range("Number").Value = 0 Then
Pictures(2).Visible = False
Pictures(3).Visible = False
Pictures(1).Visible = True
ElseIf Range("Number").Value = 1 Then
Pictures(1).Visible = False
Pictures(3).Visible = False
Pictures(2).Visible = True
ElseIf Range("Number").Value = 2 Then
Pictures(1).Visible = False
Pictures(2).Visible = False
Pictures(3).Visible = True
End If
End Sub