如何选择让折线图某一条颜色突出，其他线条颜色一致？

咖啡或茶

现在比如我有10列数据，能画出10条折线。我先突出其中的某一条，比如加粗成黑色，其他的线条颜色则是统一成另外一种颜色。首先第一个问题是，当折线比较多的时候（每条折线也比较贴近时），我如果快速找出我要加亮的那一条折线然后赋色。第二个问题是，我如何把其他折线一次性选中赋成另外统一的颜色？ 因为如果线多的话，一条一条手动改颜色很麻烦。
请大神帮忙，谢谢~！

dengxingchang

1. 用类似动态图的方式，给指定的线条加粗、换颜色；
2. 一次性选中改成一种颜色，有两种方法：VBA，颜色模板定义都是一样的颜色。

咖啡或茶

dengxingchang 发表于 2019-1-9 22:37
1. 用类似动态图的方式，给指定的线条加粗、换颜色；
2. 一次性选中改成一种颜色，有两种方法：VBA，颜色 ...

谢谢回复，能否说得更详细些？
比如第一种类似动态图是什么意思，我不需要做动态图。
2. VBA不熟悉，第二种“颜色模板定义都是一样的颜色”具体是什么意思？我怎么选中出加亮的剩余的所有线，然后赋值成一样的颜色呢？

咖啡或茶

顶贴求助~~

dengxingchang

咖啡或茶 发表于 2019-1-10 09:57
谢谢回复，能否说得更详细些？
比如第一种类似动态图是什么意思，我不需要做动态图。
2. VBA不熟悉，第 ...

第一种：
1. 先把所有的数据都做折线图，改成同一种颜色（如浅灰）
2. 再选择要突出的数据做折线图，此条折线图加粗。考虑到需要突出的数据可能不能，因此用动态图的技巧，可以选择数据后再作图。

第二种：
在“页面布局 - 颜色 ”设置里，把所有颜色都改成同一种颜色（如浅灰），那么做出来的图就是同一种颜色

wgj14

Sub COLORset()
Dim i
For i = 1 To 10
    ActiveChart.FullSeriesCollection(i).Select
    With Selection.Format.Line
        .Visible = msoTrue
        .ForeColor.ObjectThemeColor = msoThemeColorText2  
        .ForeColor.TintAndShade = 0
        .ForeColor.Brightness = 0.400000006  
        .Transparency = 0
    End With
    Next
End Sub