Excel 标签格式使用单元格格式

Question

我想让我的图表标签使用与其相应单元格相同的格式。（单元格文本格式也可以。）

我该如何处理？

我已经尝试搜索和查看自定义号码功能，但要么没有帮助，要么我是个傻瓜。

Answer 1

其实很简单。我已经做到了第一点。我相信你也可以为另一个做:)

Sub Sample()
    Dim ser As Series
    Dim pt As Point
    Dim dl As DataLabel

    Set ser = ActiveChart.SeriesCollection(1)
    Set pt = ser.Points(1)
    Set dl = pt.DataLabel
    dl.Interior.ColorIndex = Sheets("Sample").Range("E8").Interior.ColorIndex
End Sub

Excel 标签格式使用单元格格式

Excel label formatting uses cell formatting

excel

vba

excel-2013