Hucrelerle Serilerin Renklerini Ayarlama – Pie Chart

Birkaç gün önce hucrelerin renklerini serilerden bularak semalarimizi renklendirme ile ilgili bir ornek yayimlamistik.. kaynak hücrelerle serileri eslestirerek hucrelere ait renkleri grafik serisi icin otomatik ayarlarliyorduk.

Bu calismamizdan sonra Chris Umphlett adli bir arkadasimizinda bundan esinlenerek yapmak istedigi bir calisma olmus fakat calismasindaki semanin pasta sema olmasindan kaynaklanan bir takim sorunlar yasamis.. Simdi bizde bununla ilgili bir ornek yapacagiz.

Yukaridaki verilerimizin oncelikle standart bir semasini olusturuyorum..

Sub ColorPies()
Dim cht As ChartObject
Dim i As Integer
Dim vntValues As Variant
Dim s As String
Dim myseries As Series
For Each cht In ActiveSheet.ChartObjects
For Each myseries In cht.Chart.SeriesCollection
If myseries.ChartType <> xlPie Then GoTo SkipNotPie
s = Split(myseries.Formula, ",")(2)
vntValues = myseries.Values
For i = 1 To UBound(vntValues)
myseries.Points(i).Interior.Color = Range(s).Cells(i).Interior.Color
Next i
SkipNotPie:
Next myseries
Next cht
End Sub

Sonuc;

Yazar: mmustafaaslan

2004 yilindan itibaren ozel bir sirketin finans departmaninda calismaktadir. Kendini excel, visual basic kullaniminda gelistirmis olan yazarimiz; Meslegi geregi SAP konusunda ileri derecede bilgilidir.

“Hucrelerle Serilerin Renklerini Ayarlama – Pie Chart” için 1 yorum

Bir Cevap Yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir


8 + 4 =