Word文档VBA生成图表定位至指定表格下方的问题求助

错误原因解析 #

你遇到的Wrong number of arguments or invalid property assignment错误，核心问题出在图表垂直位置的计算语句上：

• 冗余的oTable.Range.Tables(1)：oTable已经是ActiveDocument.Tables(12)，无需再从它的Range里重新获取表格
• End(wdParagraph)语法错误：Range.End方法的参数应为WdUnits枚举（比如wdCharacter），用wdParagraph会导致参数不匹配
• 位置计算逻辑绕远：直接用表格的底部位置即可，无需嵌套多层Range

修正后的完整代码 #

Option Explicit

Sub CreateWordChart3()
    Dim oChart As Chart, oTable As Table
    Dim oSheet As Excel.Worksheet
    Dim oShape As Shape
    Const START_CELL = "AA1"
    
    Application.ScreenUpdating = False
    
    ' 获取文档第12号表格
    Set oTable = ActiveDocument.Tables(12)
    
    ' 添加簇状柱形图到文档
    Set oShape = ActiveDocument.Shapes.AddChart2(-1, xlColumnClustered)
    
    ' 精准定位图表到表格正下方
    With oShape
        ' 表格底部的垂直位置 + 少量间距（可根据需求调整）
        .Top = oTable.Range.Information(wdVerticalPositionRelativeToPage) + oTable.Range.Height
        ' 对齐表格左侧
        .Left = oTable.Range.Left
        ' 可选：设置图表宽度与表格一致
        .Width = oTable.Range.Width
    End With
    
    ' 获取图表对象
    Set oChart = oShape.Chart
    
    ' 复制表格数据到Excel临时工作表
    oTable.Range.Copy
    Set oSheet = oChart.ChartData.Workbook.Worksheets(1)
    oSheet.Range(START_CELL).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
    
    ' 调用创建2D表的自定义过程
    Call Create2DTable(oSheet, oSheet.Range(START_CELL))
    
    ' 关闭临时Excel工作簿
    oChart.ChartData.Workbook.Close
    
    Application.ScreenUpdating = True
End Sub

关键修正点说明 #

• 垂直位置计算：用oTable.Range.Information(wdVerticalPositionRelativeToPage)获取表格顶部的垂直位置，加上表格自身高度oTable.Range.Height，就能直接得到表格底部的位置，再设置为图表的Top属性，确保图表在表格正下方
• 可选优化：添加.Width = oTable.Range.Width让图表宽度和表格一致，视觉上更协调
• 移除冗余代码：删掉了错误的oTable.Range.Tables(1)和End(wdParagraph)部分，简化逻辑同时避免参数错误

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