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

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

Внимание: В приведенном выше коде Установите xRg = Range ("D1: J13") означает переместить и поместить график в диапазон D1: J13. Вы можете изменить диапазон по своему усмотрению.

3, нажмите F5 ключ или щелкните Run кнопку для запуска этого VBA.

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

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

1. Выберите диаграмму, которую вы хотите установить в абсолютное положение, и нажмите Кутулс > Графики > Инструменты для диаграмм > Установить абсолютное положение диаграммы.

2. В появившемся диалоговом окне укажите положение, в которое вы переместите диаграмму, и щелкните значок Ok .

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