求助：VBA设置选中ChartArea的Placement为xlMove时编译报错

你的代码出现编译错误的核心原因是对Excel对象模型的层级关系理解有误，以下是修正后的代码及错误说明：

修正后的代码 #

Sub aMOOOve()
    Dim parentChartObj As ChartObject
    
    ' 检查选中的是否为ChartArea
    If TypeName(Selection) = "ChartArea" Then
        ' 沿着对象层级向上获取ChartObject：ChartArea → Chart → ChartObject
        Set parentChartObj = Selection.Parent.Parent
        ' 设置Placement为xlMove（只移动不随单元格调整大小）
        parentChartObj.Placement = xlMove
        
        MsgBox "已设置图表为「只移动不随单元格调整大小」", vbInformation
    Else
        MsgBox "请先选中图表的绘图区（ChartArea）", vbExclamation
    End If
End Sub

原代码的错误分析 #

• 对象层级错误：ChartArea的直接父对象是Chart（图表内容对象），而Chart的父对象才是ChartObject（工作表上的图表容器对象）。你原代码中Set parentChart = chartArea.Parent获取的是Chart对象，而非ChartObject，后续调用parentChart.Chart.Placement自然会找不到属性。
• 属性归属错误：Placement是ChartObject的属性，用于控制图表容器在工作表中的位置行为，而非Chart对象的属性。
• 冗余变量声明：selectedChart和chartArea变量可以简化，直接通过Selection的层级链获取目标对象即可。

补充说明 #

如果你需要将这个逻辑整合到其他修改图表属性的函数中，可以封装成一个通用子过程，例如：

Sub SetChartPlacement(targetChartObj As ChartObject, placementType As XlPlacement)
    targetChartObj.Placement = placementType
End Sub

' 在其他函数中调用示例：
Sub ModifyChartProperties()
    Dim targetChartObj As ChartObject
    ' 假设这里已经获取到目标ChartObject
    Set targetChartObj = ActiveSheet.ChartObjects("Chart 1")
    
    ' 设置Placement
    SetChartPlacement targetChartObj, xlMove
    ' 其他图表属性修改逻辑...
End Sub

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