PowerPoint VBA复制图表区域尺寸遇445错误，求解决方法

错误445“对象不支持此操作”通常是因为直接赋值时对象引用不规范，或者选中的对象不符合预期（比如非图表形状）。以下是更可靠的实现方式：

修正后的代码 #

Sub CopyChartAreaDimensions()
    Dim selShapes As ShapeRange
    Dim sourceChartArea As ChartArea
    Dim targetChartArea As ChartArea
    
    ' 校验选中内容是否为形状且数量≥2
    If ActiveWindow.Selection.Type <> ppSelectionShapes Then Exit Sub
    Set selShapes = ActiveWindow.Selection.ShapeRange
    If selShapes.Count < 2 Then Exit Sub
    
    ' 校验选中的形状是否包含图表
    If Not selShapes(1).HasChart Or Not selShapes(2).HasChart Then Exit Sub
    
    ' 定位源和目标图表区域
    Set sourceChartArea = selShapes(1).Chart.ChartArea
    Set targetChartArea = selShapes(2).Chart.ChartArea
    
    ' 复制位置与尺寸属性
    With targetChartArea
        .Top = sourceChartArea.Top
        .Left = sourceChartArea.Left
        .Width = sourceChartArea.Width
        .Height = sourceChartArea.Height
    End With
End Sub

代码说明 #

• 增加前置校验：确保选中的是形状集合，且至少包含2个对象，避免空引用错误
• 图表类型校验：过滤非图表形状，防止因选中普通形状导致的对象不匹配问题
• 明确对象引用：通过HasChart确认后再获取ChartArea，避免直接引用时的模型兼容性问题

内容的提问来源于stack exchange，提问作者Miguel de las Nieves