vba - Excel VBA : Fill stacked diagram (and treemap-diagram) with images based on cell value

Question

我正在尝试使用基于单元格值的图像填充堆叠的 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

只需循环选择 SeriesCollection(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