如何控制Excel中各个饼图段的颜色？

我希望能够以编程方式控制饼图中各部分的颜色。 理想情况下，我的图表将基于3列表格，其中的列为：数据值，标签和饼图颜色值。 颜色值将是在Access窗体属性中看到的相同数字。

谢谢，

史蒂夫

---

Sub a()
    ActiveSheet.ChartObjects("Chart 1").Activate
    ActiveChart.SeriesCollection(1).Points.Item(1).Interior.ColorIndex = 7
End Sub  

您可以使用我在This Other Answer中发布的技巧来学习ColorIndex所代表的颜色

---

也许在这些线上的东西？

Dim ws As Worksheet
Dim sh As Shape

Set ws = Sheet2
Set sh = ws.Shapes.AddChart '.Select

With sh.Chart
    .ChartType = xlPie
    .SetSourceData Source:=Range("Sheet1!$A$1:$B$3")

    For i = 1 To .SeriesCollection(1).Points.Count
        With .SeriesCollection(1).Points(i).Format.Fill
            .ForeColor.RGB = Range("C" & i).Interior.Color

            .Solid
        End With
    Next
End With

这将允许您使用填充按钮将颜色添加到单元格，并将其用于段。

---

首先，我知道它可以做到。 BeGraphic有一个免费的Excel加载项，可以在spreadhseet中设置图表元素的颜色。 看到：

http://www.begraphic.com/gauges-and-meters.html

这使用加载项。 我必须说结果令人印象深刻。 对于我自己，我需要更多的Excel原生的东西，其他许多人会发现这个选项是顶级的。

而来自Remou的VB选项和begraphic的插件完成了这项工作。 对我而言，或者至少是当前的项目，我需要一个基于Excel的解决方案（尽可能实用且可行）。 与此同时，你和我自己都可以通过VB，VBA，.Net和/或宏找到解决方法。 访问Jon P的网站了解可用选项。

http://peltiertech.com/WordPress/example-charts

如果我发现“更多” - 我将在此查询中传回。

阿罗哈，
将

链接地址: http://www.djcxy.com/p/49545.html

上一篇: How can I control the color of individual pie chart segments in Excel?

下一篇: Best practices for JQuery namespaces + general purpose utility functions