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
此代码运行良好,但无法从条件格式中获取颜色 .
我遇到了这个VBA解决方案来读取条件格式颜色:
Selection.FormatConditions(1).BarColor.Color
但是我无法在上面的VBA块中实现它 . 我尝试用它的不同部分替换Interior.Color,似乎没有工作 . 有谁知道一个简单的方法来做到这一点?
先感谢您!