Excel VBA中Treemap图表调用SetSourceData触发不支持操作错误排查

错误原因 #

Treemap属于Excel的层次化图表类型，它对数据源结构有特定要求（需包含分组/类别列+数值列），而Chart.SetSourceData方法无法正确解析这种层次化的多列数据源，因此会触发"Object doesn't support this action"错误——这确实是Treemap与SetSourceData的兼容性问题。

解决步骤 #

1. 放弃使用SetSourceData，手动配置系列数据 #

直接通过FullSeriesCollection设置XValues（分组/类别数据）和Values（数值数据），同时通过Level属性指定分组层级，才能实现正确的区块分组。

2. 匹配Treemap的数据源结构要求 #

Treemap的标准数据源结构为：

• 多列分组数据（支持多级分组，每列对应一个层级）
• 单独一列数值数据

你的代码中使用了Union(Range("'Processed Report'!$B$3:$C$297"), Range("'Processed Report'!$M$3:$M$297"))，推测B列为一级分组、C列为二级分组、M列为数值，需将这些列分别映射到对应属性中。

修正后的代码 #

Function AddChart()
    Dim cws As Worksheet 'worksheet the chart is located on
    Dim ch As Chart
    Dim ch_shape As Shape
    Dim src_groups As Range ' 分组数据范围（B:C列）
    Dim src_values As Range ' 数值数据范围（M列）
    
    ' 需提前为cws赋值，示例：Set cws = ThisWorkbook.Worksheets("目标工作表")
    
    If ShapeExists("Unconverted Quotes", cws) = True Then
        Set ch_shape = cws.Shapes("Unconverted Quotes")
        Set ch = ch_shape.Chart
    Else
        Set ch_shape = cws.Shapes.AddChart2(240, xlTreemap)
        ch_shape.Name = "Unconverted Quotes"
        Set ch = ch_shape.Chart
        
        ch_shape.IncrementLeft -266.25
        ch_shape.IncrementTop -32.25
        ch_shape.ScaleWidth 2.4583333333, msoFalse, msoScaleFromTopLeft
        ch_shape.ScaleHeight 1.3645833333, msoFalse, msoScaleFromTopLeft
    End If
    
    ' 清理并创建系列
    If SeriesExist("UnconvertedQuotes", ch.SeriesCollection) = False Then
        ClearSeries ch.SeriesCollection
        ch.SeriesCollection.NewSeries
        ch.SeriesCollection(1).Name = "UnconvertedQuotes"
    End If
    
    ' 配置图表样式
    ch.ChartStyle = 414
    ch.ApplyLayout 2
    ch.ChartTitle.Text = "Unconverted Rates - " & cws.Range("B1")
    
    ' 指定数据源范围
    Set src_groups = ThisWorkbook.Worksheets("Processed Report").Range("B3:C297")
    Set src_values = ThisWorkbook.Worksheets("Processed Report").Range("M3:M297")
    
    ' 手动配置Treemap系列
    With ch.FullSeriesCollection(1)
        .XValues = src_groups ' 绑定多级分组列
        .Values = src_values ' 绑定数值列
        .Level = 2 ' 设置分组层级：2表示两级分组，仅需一级则设为1
    End With
    
    ch.ApplyLayout 2
End Function

关键说明 #

• Level属性：决定Treemap的分组深度，设为1时仅按第一列分组，设为2时按第一列+第二列实现多级分组，以此类推。
• 避免用Union合并分组与数值列：Treemap需要明确区分分组数据和数值数据，分别指定XValues和Values更可靠。
• 确保cws变量已正确赋值：原代码未显示cws的赋值逻辑，需在函数内部或调用时补充，否则会导致运行错误。

内容的提问来源于stack exchange，提问作者PressedForTruth