Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: ---> Neu: Office 2010 Forum <-
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, 12: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 jeden Tag dazu lernt


Verfasst am:
29. Dez 2006, 12: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, 13: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, 14: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, 15: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, 16: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, 16: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, 13: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 VBA (Makros): Diagramm erstellen und bearbeiten 7 Enigma228 243 18. Dez 2009, 19:00
Enigma228 Diagramm erstellen und bearbeiten
Keine neuen Beiträge Excel VBA (Makros): Diagramm erstellen -VBA MAcro 3 Stefan1976 319 14. Jul 2009, 15:36
Stefan1976 Diagramm erstellen -VBA MAcro
Keine neuen Beiträge Excel Auswertungen: Linie für Durchschnittswert in Diagramm einfügen 4 SunnySunshine 3349 06. Jul 2009, 11:28
Brockenhalle Linie für Durchschnittswert in Diagramm einfügen
Keine neuen Beiträge Excel Auswertungen: Diagramm- Punke auf Skala sehr gut bis schlecht 5 Meike83 442 02. Jul 2009, 13:38
Zero Diagramm- Punke auf Skala sehr gut bis schlecht
Keine neuen Beiträge Excel Formeln: Bezug in Datenquelle beim Diagramm als Formel angeben 7 Wissensdurst 955 15. Apr 2009, 07:09
Heinz Schweigert Bezug in Datenquelle beim Diagramm als Formel angeben
Keine neuen Beiträge Excel Auswertungen: Diagramm bei ausgeblendeten Daten leer? 1 bustawulf 440 02. Apr 2009, 12:03
Gast Diagramm bei ausgeblendeten Daten leer?
Keine neuen Beiträge Excel Auswertungen: Landkarte als Diagramm 2 Gast 944 07. Okt 2008, 12:21
Alto Landkarte als Diagramm
Keine neuen Beiträge Excel Auswertungen: Säulen-/Balkendiagramm ohne Abstand zw. den Balken 0 Simone22 1563 08. Jul 2008, 22:08
Simone22 Säulen-/Balkendiagramm ohne Abstand zw. den Balken
Keine neuen Beiträge Excel Formeln: maximale Anzahl an Datenreihen pro Diagramm 4 Gast 1038 24. März 2008, 21:40
Gast maximale Anzahl an Datenreihen pro Diagramm
Keine neuen Beiträge Excel Auswertungen: diagramm linear und parabel 2 zebrafisch 2069 08. Jan 2008, 17:30
AndyRhandy diagramm linear und parabel
Keine neuen Beiträge Excel Auswertungen: Diagramm mit 2 Y-Achsen 2 Relikt 3019 04. Jun 2007, 09:34
Relikt Diagramm mit 2 Y-Achsen
Keine neuen Beiträge Excel VBA (Makros): Trendlinie im Diagramm verschieben 0 hil 939 20. Mai 2007, 17:48
hil Trendlinie im Diagramm verschieben
 

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