Как задать абсолютное положение диаграммы в Excel?

Например, вы создали диаграмму и разместили её в произвольном месте на листе, как показано на скриншоте ниже. Сейчас я покажу, как с помощью VBA быстро переместить диаграмму в точное и фиксированное положение.

1. Выберите диаграмму, для которой нужно задать абсолютное положение, и нажмите клавиши Alt+F11, чтобы открыть окно Microsoft Visual Basic для приложений.

2. Нажмите Вставка > Модуль и вставьте приведённый ниже код VBA в новое окно модуля.

VBA: Установка абсолютного положения диаграммы в Excel

Sub Test()
Dim xRg As Range
Dim xChart As ChartObject
Set xRg = Range("D1:J13")
Set xChart = ActiveSheet.ChartObjects(1)
With xChart
.Top = xRg(1).Top
.Left = xRg(1).Left
.Width = xRg.Width
.Height = xRg.Height
End With
End Sub

Примечание: В приведённом выше коде строка Set xRg = Range("D1:J13") указывает, что диаграмма будет перемещена и размещена в диапазоне D1:J13. Вы можете изменить этот диапазон по своему усмотрению.

3. Нажмите клавишу F5 или кнопку Выполнить, чтобы запустить этот код VBA.

Теперь диаграмма займёт именно то положение, которое вы указали в коде VBA. См. скриншот:

Если у вас установлен Kutools для Excel, воспользуйтесь его замечательным инструментом для работы с диаграммами — Установить абсолютное положение диаграммы, чтобы переместить диаграмму и изменить её размер в соответствии с заданным диапазоном в Excel.

1. Выберите диаграмму, для которой нужно задать абсолютное положение, и нажмите Kutools > Диаграммы > Инструменты диаграммы > Установить абсолютное положение диаграммы.

2. В появившемся диалоговом окне выберите место, куда нужно переместить диаграмму, и нажмите кнопку ОК.

Теперь выбранная диаграмма переместится в указанное положение и одновременно изменит размер до значения «Ограниченный диапазон». См. скриншот: