JAVA导出Excel设置饼图颜色,Excel VBA使用条件格式从单元格填充饼图颜色

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，似乎没有工作 . 有谁知道一个简单的方法来做到这一点？

先感谢您！