VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Festlegung von Farkombinationen durch ScrollBars

Gruppe

Allgemein

Bereich

Farbe

Thema

Festlegung von Farkombinationen durch ScrollBars

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

    


Beiträge aus dem Excel-Forum zu den Themen Allgemein und Farbe