Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen

Farben in Diagramm festlegen

Betrifft: Farben in Diagramm festlegen von: Carsten
Geschrieben am: 27.08.2004 14:10:43

Hallo liebe Excel Freunde!

Ich habe folgendes Problem mit den Farben eines Säulendiagramms. In diesem Diagram sind bestimmte Fehler und deren Anzahl dargestellt. Nun sollen alle Fehler mit der Nummer 2000 - 2200 die Farbe Gelb bekommen. 3000-3200 die farbe Rot und so weiter. Ich weis wie man Legendenfarben des Schriftzuges bestimmt aber nicht die Farbe der Säule passend zu dem o.g. Kriterium.

Kann mir jemand helfen?

Hier ein Beispiel was ich gefunden habe in dem die Legende formatiert wird.

Sub LegendeFormatieren()
 ActiveSheet.ChartObjects(1).Select
 ActiveChart.HasLegend = True
 With ActiveChart.Legend.Font
  .Bold = True
  .ColorIndex = 5
 End With
End Sub


Vielen Dank im Vorraus!
  


Betrifft: AW: Farben in Diagramm festlegen von: K.Rola
Geschrieben am: 27.08.2004 14:14:12

Hallo,

lad mal eine Beispielmappe hoch.

Gruß K.Rola


  


Betrifft: AW: Farben in Diagramm festlegen von: Carsten
Geschrieben am: 27.08.2004 14:21:06

Habe mal jpg zu Server geladen.




  


Betrifft: AW: Farben in Diagramm festlegen von: K.Rola
Geschrieben am: 27.08.2004 14:23:36

Hallo,

schön, aber da kann ich schlecht den Code einbauen.

Gruß K.Rola


  


Betrifft: AW: Farben in Diagramm festlegen von: Carsten
Geschrieben am: 27.08.2004 14:30:24

Hallo K.Rola

Habe leider nur ein Beispiel was nicht richtig funktioniert. Hier formatiert Excel nur nach der Anzahl der Fehler im Diagram und nicht nach der Fehlernummer.

Habe leider nicht so die Ahnung davon.

'Variablen
Const Blatt2 = "Auswertung WKA"
Dim Datenreihe As Series
Dim Punkt As Point
Dim y As Integer
Dim x As Integer
Dim DArray As Variant

'Zählen und Ansteuern der Diagramme im Arbeitsblatt
Sheets(Blatt2).Activate
Range("A111").Select

For x = 1 To ActiveSheet.ChartObjects.Count
ActiveSheet.ChartObjects(x).Select
y = 0

'Auslesen der Datenreihe aus dem Diagramm
Set Datenreihe = _
ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1)
With Datenreihe
DArray = .Values
For Each Punkt In .Points
y = y + 1
'SHF Betrieb orange
If DArray(y) = 2 And DArray(y) = 19 And DArray(y) Then
Punkt.Interior.ColorIndex = 17
'übrigen Fehler hellblau
Else
Punkt.Interior.ColorIndex = 20
End If
Next
End With
Next x
Range("A2").Select

End Sub


  


Betrifft: AW: Farben in Diagramm festlegen von: K.Rola
Geschrieben am: 27.08.2004 14:40:45

Hallo,

ich kann nur mein Angebot wiederholen, lad ein Beispiel hoch und ich bau den
entsprechenden Code dort ein. Alles andere ist Bastelei.

Gruß K.Rola


  


Betrifft: AW: Farben in Diagramm festlegen von: Carsten
Geschrieben am: 27.08.2004 14:52:04

Die Datei diagramm beispiel.xls wurde erfolgreich zum Server hochgeladen und in 10216.xls umbenannt.

Hier kann der Abruf getestet werden:

https://www.herber.de/bbs/user/10216.xls

Übernimm bitte den nachfolgenden Code in die Zwischenablage und füge ihn in das Forums-Formular ein:


  


Betrifft: AW: Farben in Diagramm festlegen von: K.Rola
Geschrieben am: 27.08.2004 15:30:50

Hallo,

ich kann dir da leider nicht helfen.
Das Problem stellt sich anders dar, als in deiner ursprünglichen Frage.

Gruß K.Rola


 

Beiträge aus den Excel-Beispielen zum Thema "Farben in Diagramm festlegen"