使用 VBA 根据 Excel 中的点名称自动将照片添加到圆环图点

Question

我是 VBA 的新手，我正在做一个项目来绘制一个显示多个不同品牌的同心圆环图。我正在尝试将品牌徽标自动附加到甜甜圈图的外环。我的想法是有一个循环首先用品牌名称命名系列中的每个点，第二个循环引用包含徽标的文件位置，找到相应的徽标并将该徽标粘贴到该点中。

我发现了一些关于如何在饼图上命名点的先前问题/答案，但我似乎无法让它们中的任何一个在我的圆环图上工作。我设法使用

将单个命名图片从文件位置复制到单个图表点

ActiveChart.SeriesCollection("Brand").Points(1).Format.Fill.UserPicture ("C:...\Abrand.JPG")

但这不是很复杂，我不知道如何将其放大以自动将任何徽标粘贴到相应的点。

任何帮助都将不胜感激，因为我是新手，如果你能注释你所做的事情，这样我就可以学习，我也会非常感激！

Answer 1

如果您可以将标签值映射到徽标名称，则可以执行以下操作：

Dim BrandChart As Chart
Set BrandChart = ActiveChart

Dim Brand
Dim i As Integer

i = 0
For Each Brand In BrandChart.SeriesCollection("Brand").XValues
    i = i + 1
    BrandChart.SeriesCollection("Brand").Points(i).Format.Fill.UserPicture "c:\...\" & Brand & ".jpg"
Next