vba - Excel VBA使用条件格式从单元格中填充饼图颜色

Question

我没有使用 VBA 的经验，我正在尝试根据 Excel 2010 中数据单元格的颜色在一个事件工作表上格式化所有饼图。我从以下位置找到此代码:http://datapigtechnologies.com/blog/index.php/color-pie-chart-slices-to-match-their-source-cells/

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 block 中实现它。我尝试用它的不同部分替换Interior.Color，但似乎没有任何效果。有谁知道一个简单的方法来做到这一点？

先感谢您!

Answer 1

由于您拥有 2010，因此您可以使用 DisplayFormat 属性:

        For i = 1 To UBound(vntValues)
            myseries.Points(i).Interior.Color = Range(s).Cells(i).DisplayFormat.Interior.Color
        Next i