如何在Axis标签中获取颜色

时间:2013-10-07 10:38:37

标签: excel-vba excel-2007 vba excel

我在数据透视表方面遇到了问题。将数据标签应用于我的图表,选择数据标签并打开“格式数据标签”窗口,转到数字标签。选择“自定义”和代码如下:[黑色] + 0%; [red] -0%将正值格式化为黑色,将负值格式化为红色。 那么,如何在宏excel中编码呢?

我非常感谢您提供的任何帮助。

1 个答案:

答案 0 :(得分:0)

试试这个:

Sub format_datalabel()

Dim my_series As Series
Dim pt As Point

'change the chart name and update the SeriesCollection number if you have more than 1 series in your chart
Set my_series = ActiveSheet.ChartObjects("Chart 1").Chart.SeriesCollection(1)

For Each pt In my_series.Points
    pt.DataLabel.NumberFormat = "[black] +0%; [red] -0%"
Next pt

End Sub

只需更改图表名称并运行代码即可 此外,如果您的图表中有超过1个serries,您也​​应该识别它。