Ændre fave i graf

Gerne vha. en macro

marker grafen og kør denne makro

Sub Color_graph()
    Dim z As Long
    Dim y As Long
    Dim c As Range
    Dim YRange As Range
    Dim MyChart As Chart
    Dim vYRange
    Set MyChart = ActiveChart
    For z = 1 To MyChart.SeriesCollection.Count
        vYRange = Split(MyChart.SeriesCollection(z).Formula, ",")
        If UBound(vYRange) > 3 Then
            Set YRange = Range(vYRange(3) & "," & vYRange(4))
        Else
            Set YRange = Range(vYRange(2))
        End If
        y = 0
        For Each c In YRange
            y = y + 1
            With MyChart.SeriesCollection(z).Points(y).Interior
                Select Case c.Value
                    Case Is < 100: .ColorIndex = 3

                    Case Is >= 100: .ColorIndex = 4
                    Case Else: Exit Sub
                End Select
            End With
        Next
    Next
End Sub

Der er et problem hvis en eller flere af søjlerne er 0

Jeg har ikke noget problem der.
Beskriv det lidt nærmere.......

se evt. http://www.tbdl.dk/excel/farvegraf.xls

Er det en speciel knap du har brugt bak, for hvis jeg laver et ny knap i mit regneark og bruger din kode, forsvinder markeringen når jeg trykker på knappen.....

Det er en knap fra menuen Formularer og ikke fra menuen Kontrolelementer.

Hvis du bruger en knap fra kontrolelementer, skal du i dennes egenskaber sætte TakeFocusOnClick til False. Den er standard sat til True.
Det betyder at den standard vil skifte markering fra grafen til sig selv. Dette forhindres ved at sætte den til False

Det virker bare rigtigt godt

ok, så er der et svar :-)