Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Festlegung von Farkombinationen durch ScrollBars

Gruppe

Farbe

Problem

Die Farben von Shapes sollen durch ScrollBars festgelegt werden.

Lösung
Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.

ClassModule: Tabelle3

Private Sub scrRed_Change()
   With Range("C5:D5")
      .Interior.Color = RGB(scrRed.Value, 0, 0)
      .Font.Color = 16581375 - ( _
         scrRed.Value * scrGreen.Value * scrBlue.Value)
   End With
   Call SetCellColor
End Sub

Private Sub scrGreen_Change()
   Range("C7:D7").Interior.Color = _
      RGB(0, scrGreen.Value, 0)
   Call SetCellColor
End Sub

Private Sub scrBlue_Change()
   Range("C9:D9").Interior.Color = _
      RGB(0, 0, scrBlue.Value)
   Call SetCellColor
End Sub

Private Sub SetCellColor()
   Range("C4").Interior.Color = _
      RGB(scrRed.Value, scrGreen.Value, scrBlue.Value)
   Shapes(1).Fill.ForeColor.RGB = RGB( _
      scrRed.Value, scrGreen.Value, scrBlue.Value)
   DoEvents
End Sub