如何在调整Excel图表PlotArea尺寸后使其居中对齐？

问题分析 #

• 直接通过(objChart.Width - PlotArea.Width)/2计算Left值无效，原因是**objChart.Width是整个图表对象（ChartObject）的总宽度，包含边框、标题等外部元素**，而PlotArea的位置是相对于图表内部的可用区域，两者参考坐标系不匹配。
• 使用.Position = xlChartElementPositionAutomatic虽能实现居中，但会强制重置PlotArea的尺寸，不符合自定义尺寸的需求。

解决方案 #

修正坐标计算逻辑，改用图表内部可用区域的宽高作为计算基准，同时确保先设置PlotArea尺寸再执行居中计算：

With objChart
    .Left = myChtRange.Left
    .Top = myChtRange.Top
    .Width = myChtRange.Width
    .Height = myChtRange.Height
    
    With .Chart
        With .PlotArea
            ' 先设置自定义尺寸
            .Width = 200
            .Height = 100
            
            ' 基于图表内部可用区域计算居中位置
            .Left = (.InsideWidth - .Width) / 2
            .Top = (.InsideHeight - .Height) / 2
        End With
    End With
End With

关键说明 #

• .InsideWidth/.InsideHeight：代表图表内部可放置PlotArea的有效宽高（已排除图表边框、标题、图例等外部元素占用的空间），是PlotArea位置计算的正确参考基准。
• 必须先设定PlotArea的宽高，再计算Left/Top值，否则会使用默认尺寸计算，导致居中位置错误。

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