Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Grafiken nach dem Zufallsprinzip anzeigen

Gruppe

Einsetzen

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

    

Beiträge aus dem Excel-Forum zu den Themen Grafik und Einsetzen