Как установить абсолютное положение диаграммы в 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. В появившемся диалоговом окне укажите положение, куда вы хотите переместить диаграмму, и нажмите кнопку Ok кнопку.

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