Word VBA为图表添加文本框报类型不匹配错误，Excel/PPT运行正常

该类型不匹配错误是Word VBA对象模型长期存在的已知bug，与代码逻辑本身无关：

• Excel、PowerPoint的Chart.Shapes.AddTextbox()方法会直接返回对应宿主程序原生的Shape类型对象，可直接赋值给同类型变量，无兼容问题。
• Word中的图表本质是嵌入的Excel OLE对象，其Chart.Shapes.AddTextbox()返回的是Excel对象库下的Shape类型，和Word VBA中声明的Word.Shape类型不兼容，因此直接赋值时会触发类型不匹配错误。
• 该缺陷从Office 2013版本延续至今，你测试的Version 2205即点即用版Office也在受影响范围内，微软暂未推出针对该接口的类型对齐修复。

方案1：通过集合索引获取新创建的对象（推荐） #

AddTextbox方法执行完成后，新创建的文本框永远是Chart.Shapes集合的最后一个元素，无需依赖坐标匹配，稳定性和执行效率都更高：

Sub AddTextboxToChart()
    Dim oChart As Chart
    Dim oChtShp As Shape
    Dim oLegShp As Shape
    
    If ActiveWindow.Selection.ShapeRange(1).HasChart Then
        Set oChtShp = ActiveWindow.Selection.ShapeRange(1)
        Set oChart = oChtShp.Chart
        
        ' 仅执行创建操作，不直接接收返回值
        oChart.Shapes.AddTextbox msoTextOrientationHorizontal, 100, 100, 100, 100
        ' 直接取集合最后一项即为新创建的文本框
        Set oLegShp = oChart.Shapes(oChart.Shapes.Count)
        oLegShp.Fill.ForeColor.RGB = RGB(0, 0, 0)
    End If
End Sub

该方案可以保留VBA的代码自动补全、编译期语法检查能力，也不会出现坐标遍历方案中同位置形状误匹配、坐标变量未定义的问题。

方案2：延迟绑定绕开类型校验 #

将接收返回值的变量声明为Object类型，用延迟绑定绕开VBA的提前类型检查，可保持和Excel、PowerPoint版本完全一致的代码逻辑：

Sub AddTextboxToChart()
    Dim oChart As Chart
    Dim oChtShp As Shape
    Dim oLegShp As Object ' 改为通用Object类型，不做提前类型绑定
    
    If ActiveWindow.Selection.ShapeRange(1).HasChart Then
        Set oChtShp = ActiveWindow.Selection.ShapeRange(1)
        Set oChart = oChtShp.Chart
        
        ' 延迟绑定下不会触发类型不匹配报错
        Set oLegShp = oChart.Shapes.AddTextbox(msoTextOrientationHorizontal, 100, 100, 100, 100)
        oLegShp.Fill.ForeColor.RGB = RGB(0, 0, 0)
    End If
End Sub

该方案的缺点是失去VBA编辑器的自动代码补全支持，编译期不会校验该对象的方法、属性拼写是否正确。

• 测试前需确保图表设置为「浮于文字上方」的浮动形状，若为内嵌形状（InlineShape），将无法被ShapeRange集合选中，会触发其他无关的索引错误。
• 不要尝试通过类型强转的方式把返回值转换为Word.Shape类型，两类Shape接口底层实现不兼容，强转依然会报错。

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