Excel VBA：使用基于单元值的图像填充堆叠图（和树图）

我试图用基于单元值的图像填充堆积的Excel图表。 我可以做第一栏，但不是第二栏。

这是一个例子。 我想用B列中的值填充橙色区域的图像

这里是VBA代码如何填充第一列的图像：

Sub fill_with_image() With Sheets("Sheet1").ChartObjects(1).Chart.SeriesCollection(1) Set vAddress = ActiveSheet.Range(Split(Split(.Formula, ",")(1), "!")(1)) For i = 1 To vAddress.Cells.Count imagefile = Cells(i + 1, 1).Value .Points(i).Format.Fill.UserPicture (imagefile & ".png") Next i End With End Sub 

我的问题的第二部分：我找不到任何文档如何用图像填充树图。 任何想法，如果可能的？

Answer 1

只需循环selectSeriesCollection(2)

 Sub fill_with_image() Dim j as integer For j = 1 to 2 With Sheets("Sheet1").ChartObjects(1).Chart.SeriesCollection(j) Set vAddress = ActiveSheet.Range(Split(Split(.Formula, ",")(1), "!")(1)) For i = 1 To vAddress.Cells.Count imagefile = Cells(i + 1, 1).Value .Points(i).Format.Fill.UserPicture (imagefile & ".png") Next i End With Next j End Sub