Formattering af diagram

Så vidt jeg kan se, så skal det gøres ved hjælp af kode. Du kan så få koden til at køre, når du klikker på en knap, når du åbner arket, eller ved anden brugerdefineret handling. Du skal være velkommen til at sende dit Excel ark på ck@officekonsulenterne.dk så skal jeg lave et eksempel til dig.

/Christian

Her kommer et svar :-) Løsningen var følgende kode

Sub changeSeriesColor()
    Dim realNumber As Integer
    realNumber = Sheets(1).Range("B36").Value
   
    ActiveSheet.ChartObjects("Chart 1").Activate
   
    Dim serie As SeriesCollection
    Dim pPoint As Point
    Set serie = ActiveChart.SeriesCollection
   
    Dim i As Integer
    i = 0
    For Each pPoint In serie(1).Points
        If i >= realNumber Then
            pPoint.Interior.ColorIndex = 15
        Else
            pPoint.Interior.ColorIndex = 3
        End If
        i = i + 1
    Next
   
End Sub


Samt

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$B$36" Then
        changeSeriesColor
    End If
End Sub


/Christian
ck@officekonsulenterne.dk

Tak for et stykke professionelt arbejde