Chỉnh màu graph giống với màu Cell

hadoan-pap

Thành viên thường trực
Tham gia ngày
8 Tháng bảy 2015
Bài viết
214
Được thích
8
Điểm
185
Tuổi
32
Em chào mọi người!

Em có chút issue nhưng tìm chưa thấy cách để làm được ạ.

E có file như đính kèm, em muốn tạo chart nhưng trong chart thì nó phải khớp màu với màu của Cell theo từng item như ảnh bên dưới.

Rất mong mọi người hỗ trợ cho e xin đoạn code.

Em xin cảm ơn!
 

File đính kèm

hadoan-pap

Thành viên thường trực
Tham gia ngày
8 Tháng bảy 2015
Bài viết
214
Được thích
8
Điểm
185
Tuổi
32
Chào mọi người!

Có ai biết về tùy chọn này có thể hỗ trợ em được không ạ ?
 

hadoan-pap

Thành viên thường trực
Tham gia ngày
8 Tháng bảy 2015
Bài viết
214
Được thích
8
Điểm
185
Tuổi
32
Chào mọi người.

Em mới tìm được đoạn code xử lý được việc này rồi ạ.

Dim oChart As ChartObject
Dim MySeries As Series

For Each oChart In ActiveSheet.ChartObjects

For Each MySeries In oChart.Chart.SeriesCollection

Dim sFormula As String
sFormula = Split(MySeries.Formula, ",")(0) 'this returns the =SERIES(Sheet!RC part of the formula, the first argument is the series label
sFormula = Split(sFormula, "(")(1) 'this removes the =SERIES( leaving only the column label range (Sheet!RC)

Dim lSourceColor As Long
lSourceColor = Range(sFormula).Interior.Color

With MySeries
.Interior.Color = lSourceColor
.Border.Color = lSourceColor
'.MarkerBackgroundColorIndex = lSourceColor
'.MarkerForegroundColorIndex = lSourceColor
''.MarkerBackgroundColor = lSourceColor
''.MarkerForegroundColor = lSourceColor
With .Format.Line
.ForeColor.RGB = lSourceColor
.BackColor.RGB = lSourceColor
End With
.Format.Fill.ForeColor.RGB = lSourceColor
End With

Next

Next
 
Top Bottom