Excel 使用VBA为每个点添加图例

我想为我的Excel图表中的一些点添加图例，如下所示

我可以控制每个点的颜色，但是我找不到如何编辑此图例。（在图片上，我通过添加标签手动创建并编辑了它。）

我想使用类似于cht.Legend.LegendEntries（1.Value=“lol”的东西

正确声明

chChar

和

SerPoints

，会非常有帮助。您可以使用VBA intellisense查看所有

DataLabel

属性，而不仅仅是

例如，您可以在图表系列附近的列上添加一些命名标签的定义，并将其命名为“DataLabels”，然后使用下一个代码自动应用包含的字符串：

Dim rng as Range
Set rng = sh.Range(sh.Parent.Names("DataLabels").RefersToRange.Address)
 'and add the data in this way:
SerPoints(i).DataLabel.Formula = "=" & sh.Name & "!" & sh.Cells(rng.Row + i - 1, rng.Column).Address

正确声明

chChar

和

SerPoints

，会非常有帮助。您可以使用VBA intellisense查看所有

DataLabel

属性，而不仅仅是

例如，您可以在图表系列附近的列上添加一些命名标签的定义，并将其命名为“DataLabels”，然后使用下一个代码自动应用包含的字符串：

Dim rng as Range
Set rng = sh.Range(sh.Parent.Names("DataLabels").RefersToRange.Address)
 'and add the data in this way:
SerPoints(i).DataLabel.Formula = "=" & sh.Name & "!" & sh.Cells(rng.Row + i - 1, rng.Column).Address

---

你指的是图表图例，还是你这样命名的话，你在写“点”“第二点”的地方形成了语音泡泡？@FaneDuru事实上，我指的是与两点相关的语音泡泡，而不是图表图例。我不知道它在英文版的Excel中是如何调用的。你能找到那些特定的点坐标吗？那么，试试这个：

.SeriesCollection（1）.points（r）.ApplyDataLabels xldatalabelshowBubbleSizes.SeriesCollection（1）.points（r）.DataLabel.Text=“Your Text”

在

中使用。。。以图表对象的

结束。而

r

就是重点。。您是否可以发布代码来创建图表（编辑初始帖子）？如果不够清楚的话，我会告诉你把线放在哪里…@FaneDuru有效！非常感谢你！你能把答案贴出来让我接受吗？你是指图表上的图例，还是你用这种方式命名你写的“点”“第二点”？FaneDuru事实上，我说的是与两点相关的演讲泡泡，而不是图表上的图例。我不知道它在英文版的Excel中是如何调用的。你能找到那些特定的点坐标吗？那么，试试这个：

.SeriesCollection（1）.points（r）.ApplyDataLabels xldatalabelshowBubbleSizes.SeriesCollection（1）.points（r）.DataLabel.Text=“Your Text”

在

中使用。。。以图表对象的

结束。而

r

就是重点。。您是否可以发布代码来创建图表（编辑初始帖子）？如果不够清楚的话，我会告诉你把线放在哪里…@FaneDuru有效！非常感谢你！你能把答案贴出来让我接受吗？