Hallo liebe COmmunity,
ich habe eine Frage ( vermutlich einfache) zu Farben in VBA. Ich kann rein gar kein VBA und brauche es aber grade zufällig im praktikum um Farben im Diagramm fest zu legen. Habe einfach gegoogled und folgenden gefunden:
Private Sub Befehl1_Click()
Dim i As Byte, Col As Long
For i = 1 To 4
Me.Chart1.SeriesCollection(1).Points(i).HasDataLabel = True
Me.Chart1.SeriesCollection(1).Points(i).ApplyDataLabels Type:=xlDataLabelsShowLabel
Select Case Me.Chart1.SeriesCollection(1).Points(i).DataLabel.Text
Case "a"
Col = 4
Case "b"
Col = 8
Case "c"
Col = 12
Case "d"
Col = 16
Case Else
End Select
Me.Chart1.SeriesCollection(1).Points(i).Interior.ColorIndex = Col
Me.Chart1.SeriesCollection(1).Points(i).HasDataLabel = False
Next
End Sub
Meine Frage ist, wie kann ich die Farben statt mit den Nummern ( Stadnardfarben) nun auf RGB oder Hexadezimal umschreiben, da die Firma halt nur bestimmte Farben verwendet. Eine schnelle Antwort wäre super hilfreich.
Vielen Dank
krush
