Excel VBA：根据单元格值用图像填充堆叠图（和树状图）

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

循环到select 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

Excel VBA：根据单元格值用图像填充堆叠图（和树状图）

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

vba

excel

diagram