Word VBA宏生成簇状柱形图遇“自动化错误”，求解决方案

错误原因分析 #

直接使用Word表格的Range作为SetSourceData的参数是核心问题——Word的Range对象和Excel图表所需的Range对象分属不同的Office对象模型，类型不兼容，触发了“Automation Error”。

修正方案 #

方法一：通过临时Excel工作表传递数据源（推荐，适配结构化数据） #

利用Excel对象模型处理数据，再绑定到Word中的图表，兼容性更强：

Sub GenerateClusteredColumnChart()
    Dim tbl As Table
    Dim xlApp As Object
    Dim xlWB As Object
    Dim xlWS As Object
    Dim chartObj As Object
    
    ' 检查文档是否存在表格
    If ActiveDocument.Tables.Count = 0 Then
        MsgBox "文档中未找到表格", vbExclamation
        Exit Sub
    End If
    
    Set tbl = ActiveDocument.Tables(1)
    
    ' 后台启动Excel（后期绑定，无需手动引用Excel库）
    Set xlApp = CreateObject("Excel.Application")
    xlApp.Visible = False
    Set xlWB = xlApp.Workbooks.Add
    Set xlWS = xlWB.Worksheets(1)
    
    ' 将Word表格数据复制到Excel工作表
    tbl.Range.Copy
    xlWS.Range("A1").PasteSpecial Paste:=xlPasteValuesAndNumberFormats
    
    ' 在Word中插入簇状柱形图
    Set chartObj = ActiveDocument.Shapes.AddChart2(201, xlColumnClustered).Chart
    
    ' 使用Excel兼容的Range作为数据源
    chartObj.SetSourceData Source:=xlWS.Range("A1").CurrentRegion, PlotBy:=xlColumns
    
    ' 调整图表尺寸
    chartObj.Parent.Width = 400
    chartObj.Parent.Height = 300
    
    ' 清理临时Excel资源
    xlWB.Close SaveChanges:=False
    xlApp.Quit
    Set xlWS = Nothing
    Set xlWB = Nothing
    Set xlApp = Nothing
End Sub

代码说明：

• 采用后期绑定创建Excel对象，无需手动添加Excel引用库，适配不同Office版本
• 先将Word表格数据同步到临时Excel工作表，确保数据源类型符合图表要求
• 操作完成后自动关闭临时Excel文件，避免残留后台进程

方法二：手动构建图表系列（适合小型数据集） #

无需依赖Excel，直接遍历Word表格单元格生成图表系列：

Sub BuildChartManually()
    Dim tbl As Table
    Dim chartObj As Object
    Dim seriesCol As Object
    Dim i As Integer, j As Integer
    
    If ActiveDocument.Tables.Count = 0 Then
        MsgBox "文档中未找到表格", vbExclamation
        Exit Sub
    End If
    
    Set tbl = ActiveDocument.Tables(1)
    ' 检查表格是否满足最小数据要求（表头+至少1组数据）
    If tbl.Rows.Count < 2 Or tbl.Columns.Count < 2 Then
        MsgBox "表格数据不足，无法生成图表", vbExclamation
        Exit Sub
    End If
    
    ' 插入图表并清除默认示例系列
    Set chartObj = ActiveDocument.Shapes.AddChart2(201, xlColumnClustered).Chart
    Do While chartObj.SeriesCollection.Count > 0
        chartObj.SeriesCollection(1).Delete
    Loop
    
    ' 遍历表格列，添加图表系列
    For j = 2 To tbl.Columns.Count
        Set seriesCol = chartObj.SeriesCollection.NewSeries
        ' 设置系列名称（移除Word单元格末尾的段落标记）
        seriesCol.Name = Left(tbl.Cell(1, j).Range.Text, Len(tbl.Cell(1, j).Range.Text) - 2)
        
        ' 添加数据点
        For i = 2 To tbl.Rows.Count
            seriesCol.Values = seriesCol.Values & "," & Val(tbl.Cell(i, j).Range.Text)
        Next i
    Next j
    
    ' 设置X轴标签（第一列数据）
    chartObj.SeriesCollection(1).XValues = ""
    For i = 2 To tbl.Rows.Count
        chartObj.SeriesCollection(1).XValues = chartObj.SeriesCollection(1).XValues & "," & Left(tbl.Cell(i, 1).Range.Text, Len(tbl.Cell(i, 1).Range.Text) - 2)
    Next i
    
    ' 调整图表尺寸
    chartObj.Parent.Width = 400
    chartObj.Parent.Height = 300
End Sub

代码说明：

• 先清除图表默认的示例系列，避免干扰自定义数据
• 手动处理Word单元格文本末尾的段落标记，避免图表显示多余符号
• 直接遍历表格数据构建系列，无需依赖外部Excel进程

注意事项 #

• 确保Word表格第一行是表头，第一列为分类标签，后续列为数值型数据
• 方法一依赖Excel引擎，需确保系统已安装Excel组件

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