excel - 使用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