betinget formatting af søjlediagram i graf.

http://gratisupload.dk/vis/706853/

Hmm - adgangen er spærret af sikkerhedsmæssige årsager - herfra.

>dkhanknu - jeg har endnu ikke kunne se dit svar, men hvsi du vil have point smid et svar. Henrik

Jeg har løst det på denne måske ikke helt optimale måde:

Sub color_chart()
Dim cIt As Integer
Dim sIt As Integer
Dim pIt As Integer

Dim seriesArray() As Variant
 
For cIt = 1 To ActiveWorkbook.Sheets("OVERALL").ChartObjects.Count
    For sIt = 1 To 2
        seriesArray = ActiveWorkbook.Sheets("OVERALL").ChartObjects(cIt).Chart.SeriesCollection(sIt).Values

        For pIt = 1 To UBound(seriesArray)
        Select Case seriesArray(pIt)
        Case Is >= 5
            ActiveWorkbook.Sheets("OVERALL").ChartObjects(cIt). _
              Chart.SeriesCollection(sIt).Points(pIt).Interior.Color = RGB(0, 128, 0)
        Case 3 To 5
            ActiveWorkbook.Sheets("OVERALL").ChartObjects(cIt). _
              Chart.SeriesCollection(sIt).Points(pIt).Interior.Color = RGB(204, 255, 204)
        Case Else
            ActiveWorkbook.Sheets("OVERALL").ChartObjects(cIt). _
              Chart.SeriesCollection(sIt).Points(pIt).Interior.Color = RGB(255, 255, 153)
        End Select
   
        Next pIt
    Next sIt
Next cIt

End Sub

Jeg sendte dig en personlig besked her fra Eksperten, hvor jeg bad om din mailadresse. Er der ikke kommet en besked?

Jeg er ligeglad med point - kan alligevel ikke bruge dem til at betale købmanden, men dog sender jeg det her som et svar.