Soru Çubuk Grafikte Ortalama Altında Kalan Çubukları Kırmızı Renk Olarak Değişmesi

[bulentkars]

Arkadaşlar Merhaba,

Ekteki Tabloda örnek ile anlattım, Yapmak istediğim ortalamın altında kaln grafik çubuklarını kırmızı renge boyanmasını istiyorum. Yardımcı olablilirseniz sevinirim. Şimdiden Teşekkürler

 

[YUSUF44]

Grafik özelliklerinde bunu yapmanın yolu var mı bilmiyorum, grafik konusunda hiç iyi değilim.

Makro kaydet yöntemiyle aşağıdaki kodları oluşturdum, deneyiniz:

Sub renkle()
ActiveSheet.ChartObjects("Grafik 1").Activate
For i = 3 To 25
    If i <> 14 Then
        If Cells(i, "P") < [P27] Then
            ActiveChart.FullSeriesCollection(1).Points(i - 2).Select
            With Selection.Format.Fill
               .Visible = msoTrue
               .ForeColor.RGB = RGB(255, 0, 0)
               .Transparency = 0
               .Solid
            End With
        Else
            ActiveChart.FullSeriesCollection(1).Points(i - 2).Select
            With Selection.Format.Fill
                .Visible = msoTrue
                .ForeColor.ObjectThemeColor = msoThemeColorAccent1
                .ForeColor.TintAndShade = 0
                .ForeColor.Brightness = 0
                .Transparency = 0
                .Solid
            End With
        End If
    End If
Next
End Sub

 

[bulentkars]

Yusuf Bey,

Teşekkürler Elinize sağlık...