Vba 设置图表中每个系列的数据标签格式

我正试图找出一种有效的方法，不管是否使用VBA，来格式化我拥有的线图上的数据标签

对于每个系列，图形应在最右侧的数据标签处显示系列名称，而其余的数据标签为空

目前，我只是在每个系列中添加数据标签，然后分别格式化每个单独的数据标签——但当我有多个点的系列以及多个系列时，这会很慢

---

有什么建议吗？谢谢

您可以在系列上循环，并在循环中放置

With currentSeries.points.first
    .label = "lable name"
    .font  = font(...)
    ...
End With

---

这样，每个系列中只能指定一个点。

可以使用VBA或直接执行此操作

VBA 假设

sc

是对

系列集合的引用，请使用

Dim isr As Integer, nsr As Integer
nsr = sc.Count
Dim sr As Series
Dim dp As Point
Dim dl As DataLabel
Dim fn As Font
For isr = 1 To nsr
    Set sr = sc(isr)
    Set dp = sr.Points(1)
    dp.HasDataLabel = True
    Set dl = dp.DataLabel
    dl.Text = "<your contents>"
    Set fn = dl.Characters.Font
    ' Format the data label
Next isr

Dim isr为整数，nsr为整数
nsr=sc.计数
Dim sr As系列
作为点的Dim-dp
Dim dl作为数据标签
将fn变暗为字体
对于isr=1至nsr
设置sr=sc（isr）
设置dp=sr.点（1）
dp.HasDataLabel=True
设置dl=dp.DataLabel
dl.Text=“”
设置fn=dl.Characters.Font
'格式化数据标签
下一个isr

您必须更换
”
。
请注意，这里您可以设置对Excel范围的引用，而不是为数据标签设置固定值，这似乎是您的意图

直接操作
有些事情比你正在做的要容易得多

要选择单个数据点，请单击目标系列，然后：1）再次单击目标数据点，或2）按向右箭头选择第一个数据点

然后，要添加数据标签，请在数据点上单击鼠标右键，然后添加数据标签

然后，要选择单个数据标签，请单击该数据标签一次（这将选择该系列的所有数据标签，即使只有一个），然后：1）再次单击目标数据标签，或2）按向右箭头选择第一个数据标签

然后，要编辑数据标签，请转到公式栏并键入所需的内容。格式随意。
注意，在这里您可以设置对Excel范围的引用，而不是直接在数据标签中键入文本，这似乎是您的意图。
我找不到：1）
首先作为
点的成员
，2）
标签作为
点的成员
，3）
Font
作为
Point
的成员。你能澄清一下吗？你觉得这里有什么有用的东西吗？您没有发布ant反馈，