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

Question

我正在尝试调整簇状条形图绘图区（以及顶部的主 XValue 轴）的大小，以动态对齐图表标题下方。但是，我无法根据 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

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

Resize Chart PlotArea below Chart Title

excel

vba

resize

bar-chart