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

Question

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

我该如何处理？

我已经尝试搜索并查看自定义数字功能，但要么没有帮助，要么我是一个doofus。

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