Изменить размер графического участка под названием заголовка - PullRequest
Новая
       35

Изменить размер графического участка под названием заголовка

0 голосов
/ 20 октября 2019

Я пытаюсь изменить размер PlotArea кластерной гистограммы (вместе с первичной осью XValue вверху), чтобы динамически выровнять ее непосредственно под заголовком диаграммы. Однако я не могу изменить верх и высоту области графика на основе ChartTitle.Top & ChartTitle.Height. Диаграмма не имеет легенды, и ее Первичная ось XValue находится сверху, а ось Первичной категории слева. Вот как выглядит диаграмма:

enter image description here

Данные для диаграммы выглядят так: 

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

1 Ответ

1 голос
/ 20 октября 2019

PlotArea имеет свойство Position, которое можно установить на xlChartElementPositionAutomatic

VBA value: -4105

. Это идеально меняет размеры заголовка и области графика.

MSDN info

...