散点图某系列数据添加标签，标签来自可变区域

isdowen

Sub Macro4()

'

' Macro4 Macro

'

Dim Bru

Dim Brd

    Bru = 5

    Brd = 6

    'E5单元格里面的字符串是VS0 F2, 01/01 - 01/02

    'E6单元格里面的字符串是VS1 F2, 01/04 - 01/05

    ActiveSheet.ChartObjects("Format").Activate

    ActiveChart.FullSeriesCollection(1).Select

    ActiveChart.FullSeriesCollection(1).ApplyDataLabels

    ActiveChart.FullSeriesCollection(1).DataLabels.Select

    Selection.Position = xlLabelPositionRight

    ActiveChart.SeriesCollection(1).DataLabels.Format.TextFrame2.TextRange.InsertChartField msoChartFieldRange, "='Project Info.'!$E" & Bru & "$E$" & Brd, 0

    Selection.ShowRange = True

    Selection.ShowValue = False

End Sub

Bru和Brd两个变量必须存在，因为他们是从其他代码中引用而来，其值会变化

代码没有报错，但是运行完后，没有任何标签没有显示。

我期待显示的是下图：

493861364

没附件，猜一下，感觉应该是这里

ActiveChart.SeriesCollection(1).DataLabels.Format.TextFrame2.TextRange.InsertChartField msoChartFieldRange, "=Sheet1!$E" & Bru & ":$E$" & Brd, 0

isdowen

493861364 发表于 2023-10-23 16:19
没附件，猜一下，感觉应该是这里

ActiveChart.SeriesCollection(1).DataLabels.Format.TextFrame2.Tex ...

对了，是我自己的疏忽。 感谢