数据标签填充颜色能不能自动设置成与数据系列颜色一致的效果？

aoe1981

　　详见两张截图的对比：
　　现状：（详见附件）
　　
　　目标效果图：
　　
　　附件如下：
　　 双层图.rar (8.69 KB, 下载次数: 52)

2014-3-4 21:21 上传

点击文件名下载附件

　　来源说明：ExcelHome腾讯微博。


该贴已经同步到 aoe1981的微博

悠悠的炊烟

自动就要用VBA了

aoe1981

悠悠的炊烟 发表于 2014-3-4 22:12
自动就要用VBA了

看来只能手动设置了。。。只是手动选取颜色时，色差难免。。。

悠悠的炊烟

要求不严就手动，真要严丝合缝的话就用代码，也就几句就能搞定

1588078/37

悠悠的炊烟 发表于 2014-3-5 10:24
要求不严就手动，真要严丝合缝的话就用代码，也就几句就能搞定

就说一堆废话。

realfimo

同求方法。。。

dengxingchang

realfimo 发表于 2018-10-11 10:40
同求方法。。。

4楼说了
1. 手动设置
2.VBA代码。可以百度代码

harryfooty

同求方法+1！！！目前通过录制宏得到一些代码，但是不知道怎么让标签颜色=线条颜色，尝试了，却无法调用，求版主解答~

数据标签填色的代码：
    ActiveSheet.ChartObjects("场次上座图").Activate
    ActiveChart.SeriesCollection(2).ApplyDataLabels
    With ActiveChart.SeriesCollection(2).DataLabels.Format.Fill
        .Visible = msoTrue
        .ForeColor.ObjectThemeColor = msoThemeColorAccent1
        .ForeColor.TintAndShade = 0.2
        .ForeColor.Brightness = 0.1
        .Solid
    End With

线条改变颜色的代码：
Sub 宏4()
    With ActiveChart.SeriesCollection(2).Format.Line
        .Visible = msoTrue
        .ForeColor.ObjectThemeColor = msoThemeColorAccent2
        .ForeColor.TintAndShade = 0
        .ForeColor.Brightness = 0
        .Transparency = 0
    End With
End Sub

悠悠的炊烟

1. Sub 数据标签背景色()
   
2.     Dim myseries As Series, i%
   
3.     Set myseries = Sheets(1).ChartObjects(1).Chart.SeriesCollection(1)
   
4.     For i = 1 To 3
   
5.            myseries.Points(i).DataLabel.Format.Fill.ForeColor.RGB = myseries.Points(i).Format.Fill.ForeColor.RGB
   
6.     Next i
   
7. End Sub
   

复制代码

ning84

1. 
   
2. Sub ll()
   
3.     Dim Shp As Shape, ShpRng As ShapeRange
   
4.          Set ShpRng = Application.Selection.ShapeRange
   
5. 
   
6.          With ShpRng

复制代码