Excel VBA 线条颜色/标记线颜色答案

【问题标题】：Excel VBA Line Color / Marker Line ColorExcel VBA 线条颜色/标记线颜色
【发布时间】：2015-06-22 21:43:01
【问题描述】：

我正在编写一些 VBA 代码来修改 Excel 图表。对于散点图，我需要修改标记线颜色，有时还需要修改连接线的线条颜色。我可以手动执行这两项操作，但是当我录制宏时，尽管结果非常不同，但这两项操作都会产生相同的代码。

知道如何在代码中区分线条颜色和标记线颜色吗？

这段代码是在我记录自己改变标记线颜色时创建的

Sub Macro3()
'

    ' Macro3 Macro
    '
    '
        ActiveChart.SeriesCollection(2).Select
        With Selection.Format.Line
            .Visible = msoTrue
            .ForeColor.ObjectThemeColor = msoThemeColorAccent1
            .ForeColor.TintAndShade = 0
            .ForeColor.Brightness = 0
        End With
    End Sub

这段代码是在我记录自己更改连接标记的线的颜色时创建的

Sub Macro4()
'
' Macro4 Macro
'
'
'Change the Line Color
    ActiveChart.SeriesCollection(2).Select
    With Selection.Format.Line
        .Visible = msoTrue
        .ForeColor.ObjectThemeColor = msoThemeColorAccent1
        .ForeColor.TintAndShade = 0
        .ForeColor.Brightness = 0
    End With
End Sub

【问题讨论】：

这是图表对象模型的一个缺点。使用 .Format.Line 语法将相同的格式应用于标记线和连接线。使用 .Border 将颜色应用于连接线，将 .MarkerForegroundColor 应用于标记线。

标签： excel vba charts

【解决方案1】：

连接线的线条颜色为Series.Format.Line.ForeColor。标记线颜色为Series.MarkerForegroundColor。但至少在 Excel 2007 中设置Series.Format.Line.ForeColor 存在问题。见例子：

Sub Macro3()
 Dim oChart As Chart
 Dim oSeries As Series

 Set oChart = ActiveChart
 Set oSeries = oChart.SeriesCollection(2)

 oSeries.Format.Line.Weight = 5 'Line.Weigth works ever

 oSeries.Format.Line.Visible = msoFalse 'for Line.ForeColor getting to work we have to cheat something
 oSeries.Format.Line.Visible = msoTrue
 oSeries.Format.Line.ForeColor.RGB = RGB(0, 255, 0) 'now it works

 oSeries.MarkerSize = 15
 oSeries.MarkerBackgroundColor = RGB(255, 0, 0) 'marker background

 oSeries.MarkerForegroundColor = RGB(0, 0, 255) 'marker foreground (lines around)
End Sub

ActiveChart 是散点图。这是用 Excel 2007 测试的。

【讨论】：

感谢您的回复。 @Axel，您建议的技巧也对我有用。谢谢。
衷心感谢您对 .Line.Visible 的破解。我有一个集合中的第一个系列没有显示该行（在 Excel 2010 中）。在 msoTrue 之前添加 msoFalse 就可以了！
从 Excel 2013 开始，标记之间的线显然是使用 .Border 属性设置的。在我意识到发生了什么之前，我花了一个小时尝试你的建议！

【解决方案2】：

从 Excel 2013 开始，线条颜色和标记线颜色很容易区分，因为线条颜色使用 .Border 属性设置，而标记颜色使用 设置。 MarkerBackgroundColor 和 .MarkerForegroundColor 属性。

因此，以下将为您提供白色标记，它们之间带有红色边框和黑色连接线：

ActiveChart.SeriesCollection(1).Select
With Selection
    .Border.LineStyle = xlContinuous
    .Border.Color = RGB(0,0,0)
    .MarkerBackgroundColor = RGB(255, 255, 255)
    .MarkerForegroundColor = RGB(255, 0, 0)
End With

注意：如果您使用 Selection.Format.Line.Weight，请注意这默认适用于边框和连接线粗细

【讨论】：

.Border、.MarkerBackgroundColor 和 .MarkerForegroundColor 是旧 Excel 97-2003 对象模型的遗留位。它们本来应该被LineFormat 和FillFormat 替换，但是这些在Office 2007 中没有完全实现，在Office 2016 中仍然没有得到更正。

【解决方案3】：

你可以使用

ActiveChart.SeriesCollection(1).MarkerForegroundColor = -2

【讨论】：