Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: ---> 4. September: Office-Treffen Rhein-Ruhr <-
Diagramm Farbabstufung der Balken
zurück: Kann Grafiktitel nicht aus Zelle auslesen weiter: umrechnung problem Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Ghost75
Gast


Verfasst am:
29. Dez 2006, 13:34
Rufname:

Diagramm Farbabstufung der Balken - Diagramm Farbabstufung der Balken

Nach oben
       Version: Office XP (2002)

Hallo.

Kurz vor Jahresende habe folgende Fragestellung:

Ich möchte die Ergebnisse einer Mitarbeiterbefragung grafisch aufbereiten. Dabei sollen z.B. Werte über 90% grün dargestellt werden, über 60% bis 89% gelb und Werte kleiber 60% rot. Geht das? Und wenn ja, wie?

Schon einmal Danke im Voraus!

Wünsche allen Forumsteilnehmern einen guten Rutsch ins neue Jahr!

Gruß
< Peter >
Excel-Moderator, der immer noch dazu lernt


Verfasst am:
29. Dez 2006, 13:50
Rufname: Kommt darauf an wer ruft
Wohnort: Das schönste Land in Deutschlands Gaun


AW: Diagramm Farbabstufung der Balken - AW: Diagramm Farbabstufung der Balken

Nach oben
       Version: Office XP (2002)

Hallo,

schau mal ob dir das hier hilft.

_________________
Gruß
Peter
Nepumuk
VB / VBA Programmierer


Verfasst am:
29. Dez 2006, 14:05
Rufname: Max
Wohnort: Dusseldoof

AW: Diagramm Farbabstufung der Balken - AW: Diagramm Farbabstufung der Balken

Nach oben
       Version: Office XP (2002)

Hallo Ghost75,

oder ein kleines Makro gefällig:

Code:
Public Sub prcColoredBeam()
    Dim vntArray As Variant
    Dim intIndex As Integer
    With Tabelle1.ChartObjects(1).Chart.SeriesCollection(1)
        vntArray = .Values
        For intIndex = LBound(vntArray) To UBound(vntArray)
            Select Case vntArray(intIndex)
                Case Is > 0.9
                    .Points(intIndex).Interior.Color = RGB(0, 255, 0)
                Case Is < 0.6
                    .Points(intIndex).Interior.Color = RGB(255, 0, 0)
                Case Else
                    .Points(intIndex).Interior.Color = RGB(255, 255, 0)
            End Select
        Next
    End With
End Sub

_________________
De fontibus non est disputandum

Gruß
Nepumuk Cool
Ghost75
Gast


Verfasst am:
29. Dez 2006, 15:22
Rufname:

AW: Diagramm Farbabstufung der Balken - AW: Diagramm Farbabstufung der Balken

Nach oben
       Version: Office XP (2002)

Hallo.

Danke für die schnelle Hilfe! Funktioniert beides! Very Happy

Gibt es die Möglichkeit, dass die Farben der Balken von einer Farbe in die nächste übergehen? Von rot zu gelb zu grün? Ist kein muss, wäre aber schön, wenn es so eine Möglichkeit geben würde. Habe dies schon bei einigen Präsentationen gesehen.

Gruß
Nepumuk
VB / VBA Programmierer


Verfasst am:
29. Dez 2006, 16:24
Rufname: Max
Wohnort: Dusseldoof

AW: Diagramm Farbabstufung der Balken - AW: Diagramm Farbabstufung der Balken

Nach oben
       Version: Office XP (2002)

Hallo Ghost75,

nein, das geht nur zweifarbig. Außer du erstellst eine Grafik mit diesem Effekt. Die könnte man dann als Hintergrund laden.

_________________
De fontibus non est disputandum

Gruß
Nepumuk Cool
Ghost75
Gast


Verfasst am:
29. Dez 2006, 17:03
Rufname:

AW: Diagramm Farbabstufung der Balken - AW: Diagramm Farbabstufung der Balken

Nach oben
       Version: Office XP (2002)

Hallo Nepomuk.

Wie würde das gehen mit den zweifarbig?

Gruß
Nepumuk
VB / VBA Programmierer


Verfasst am:
29. Dez 2006, 17:22
Rufname: Max
Wohnort: Dusseldoof

AW: Diagramm Farbabstufung der Balken - AW: Diagramm Farbabstufung der Balken

Nach oben
       Version: Office XP (2002)

Hallo Ghost75,

mal ein Beispiel in dem Der mittlere Bereich von rot nach gelb verläuft.

Code:

Public Sub prcColoredBeam()
    Dim vntArray As Variant
    Dim intIndex As Integer
    With Tabelle1.ChartObjects(1).Chart.SeriesCollection(1)
        vntArray = .Values
        For intIndex = LBound(vntArray) To UBound(vntArray)
            Select Case vntArray(intIndex)
                Case Is > 0.9
                    .Points(intIndex).Interior.Color = RGB(0, 255, 0)
                Case Is < 0.6
                    .Points(intIndex).Interior.Color = RGB(255, 0, 0)
                Case Else
                    With .Points(intIndex)
                        .Fill.TwoColorGradient Style:=msoGradientHorizontal, Variant:=1
                        .Fill.ForeColor.SchemeColor = 6
                        .Fill.BackColor.SchemeColor = 3
                    End With
            End Select
        Next
    End With
End Sub

_________________
De fontibus non est disputandum

Gruß
Nepumuk Cool
Ghost75
Gast


Verfasst am:
04. Jan 2007, 14:43
Rufname:


AW: Diagramm Farbabstufung der Balken - AW: Diagramm Farbabstufung der Balken

Nach oben
       Version: Office XP (2002)

Hallo.

Danke für die Antwort! Razz

Gruß und ein frohes neues Jahr
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Auswertungen: excel Diagramm gleicher Feldinhalt gleiche Farbe 0 bull1234 212 26. Mai 2010, 10:19
bull1234 excel Diagramm gleicher Feldinhalt gleiche Farbe
Keine neuen Beiträge Excel Auswertungen: negative Werte im Diagramm 3 Hilfe 2035 26. Feb 2010, 14:19
Gast10 VIE negative Werte im Diagramm
Keine neuen Beiträge Excel VBA (Makros): VBA + Diagramm --> Problem 5 pizzeriamammamia 101 24. Feb 2010, 22:58
gandalf149 VBA + Diagramm --> Problem
Keine neuen Beiträge Excel Hilfe: Balken verschieben, Werte automatisch anpassen 1 Entchen_22 101 16. Nov 2009, 11:23
Klaus-Dieter Balken verschieben, Werte automatisch anpassen
Keine neuen Beiträge Excel Auswertungen: Diagramm: Normalverteilung 1 petrigam 820 11. Nov 2009, 16:44
Alto Diagramm: Normalverteilung
Keine neuen Beiträge Excel Auswertungen: In vorhandenes Diagramm einzelne Punkte eintragen 1 Gruwe 106 09. Nov 2009, 11:43
marbee In vorhandenes Diagramm einzelne Punkte eintragen
Keine neuen Beiträge Excel Auswertungen: Diagramm Säulen Farbe ändern 1 Svenundmelanie2 527 05. Nov 2009, 18:39
Zero Diagramm Säulen Farbe ändern
Keine neuen Beiträge Excel Auswertungen: Rechnen im Diagramm 4 Stein0123 306 22. Sep 2009, 20:51
Alto Rechnen im Diagramm
Keine neuen Beiträge Excel Auswertungen: Zeitskala in Diagramm 0 Ruggero 209 25. Aug 2009, 22:01
Ruggero Zeitskala in Diagramm
Keine neuen Beiträge Excel Auswertungen: balkendiagramm: balken unterteilen 2 Gast 410 28. Mai 2009, 18:05
Thomas Ramel balkendiagramm: balken unterteilen
Keine neuen Beiträge Excel Auswertungen: 3 Parameter in 1 Diagramm darstellen 4 j_ey_see 1219 20. Aug 2008, 08:02
j_ey_see 3 Parameter in 1 Diagramm darstellen
Keine neuen Beiträge Excel Auswertungen: Brauche hilfe bei einem Diagramm 3 HansDampf_1000 307 23. Mai 2008, 20:57
Zero Brauche hilfe bei einem Diagramm
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: CSS Forum