在图表标题下方调整图表PlotArea的大小

Question

我正在尝试调整群集条形图PlotArea的大小（以及顶部的Primary XValue Axis），以动态地对齐图表标题下方。但是，我无法基于ChartTitle.Top和ChartTitle.Height更改绘图区的顶部和高度。图表没有图例，其主要XValue轴位于顶部，主要类别轴位于左侧。图表的外观如下：

图表的数据如下：

Col A                                                                     Col B
------------------------------------------------------------------------------
Lorem ipsum dolor sit amet, consectetur adipiscing elit.                    5
Vestibulum malesuada nisl condimentum, venenatis dolor id, commodo lectus.  3
Vivamus imperdiet dolor quis massa tincidunt, sed hendrerit metus maximus.  2
Donec ut ligula vulputate, eleifend massa vel, tincidunt magna.             2
Mauris molestie purus non eros egestas interdum.                            1
Sed auctor eros non nunc porta, id lacinia mi ultricies.                    1

这是代码段：

With myChart.Chart
    With .PlotArea
        .Select
        .Top = myChart.Chart.ChartTitle.Top + myChart.Chart.ChartTitle.Height
        .Height = myChart.Height - .Top
    End With
End With

Answer 1

PlotArea具有一个Position属性，可以将其设置为xlChartElementPositionAutomatic

VBA value: -4105

这将完美调整标题和绘图区域的大小。

MSDN info