我之前也踩过这个坑！Word VBA里图表乱跑真的让人头大，尤其是其他功能都正常的时候。咱们直接说解决方案，核心就是先把插入点精准定位到目标页面，再插入图表，具体可以这么做：

1. 精准定位到目标页面的插入位置 #

首先得让光标跑到你想要插图表的页面（比如第2页），有几种可靠的方法：

方法A：直接定位到指定页码 #

用GoTo方法跳转到目标页，然后把光标折叠到页首，确保插入点在页面最开头：

' 跳转到第2页
ActiveDocument.Bookmarks("\Page").Range.GoTo _
    What:=wdGoToPage, Which:=wdGoToAbsolute, Name:="2"
' 将光标折叠到当前范围的起始位置（也就是页首）
Selection.Collapse Direction:=wdCollapseStart

方法B：用书签定位（更稳定） #

如果你的Word模板里已经在目标位置提前加了书签（比如命名为ChartInsertArea），直接定位到书签位置更靠谱，不会因为排版变化导致页码偏移：

' 定位到指定书签的位置
ActiveDocument.Bookmarks("ChartInsertArea").Range.Select
' 确保光标在书签范围的起始处
Selection.Collapse Direction:=wdCollapseStart

2. 插入图表时绑定到当前插入点 #

定位好光标后，一定要用嵌入式图表（InlineShapes） 而不是浮动型图表（Shapes），嵌入式会跟着文本流走，不会乱跑。示例代码：

' 在当前光标位置插入嵌入式柱状图
Dim targetChart As InlineShape
Set targetChart = Selection.InlineShapes.AddChart( _
    Style:=xlColumnClustered, Range:=Selection.Range)

' 接下来可以正常设置图表数据、样式（这部分你原来的代码应该没问题）
With targetChart.Chart
    .SetSourceData Source:=ThisWorkbook.Sheets("数据").Range("A1:B10")
    .ChartTitle.Text = "月度销售数据"
End With

3. 排查特殊情况：分节/分页符影响 #

如果目标页面在单独的节里，比如第2页是第2节的第一页，那要先定位到对应节再跳页码：

' 跳转到第2节的第1页
ActiveDocument.Sections(2).Range.GoTo _
    What:=wdGoToPage, Which:=wdGoToAbsolute, Name:="1"
Selection.Collapse Direction:=wdCollapseStart

4. 调试小技巧 #

不确定光标有没有到位？加个弹窗确认一下：

MsgBox "当前光标所在页码：" & Selection.Information(wdActiveEndPageNumber)

如果弹窗显示的是目标页码，再插入图表就没问题啦！

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