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

1. Виберіть діаграму, для якої ви встановите положення звільнення, і натисніть інший + F11 клавіші, щоб відкрити вікно Microsoft Visual Basic for Applications.

2. Клацання Insert > Модуліта вставте нижче 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 = діапазон ("D1: J13") означає переміщення та розміщення діаграми в діапазоні D1: J13. Ви можете змінювати діапазон, як вам потрібно.

3. Прес F5 або клацніть на прогін для запуску цього VBA.

Тепер ви побачите, що діаграма переміщується в точне положення, як ви вказали в VBA. Дивіться знімок екрана:

Якщо у вас встановлено Kutools для Excel, ви можете застосувати його дивовижний інструмент діаграми – Встановіть абсолютну позицію діаграми для переміщення та зміни розміру діаграми до заданого діапазону в Excel.

1. Виберіть діаграму, для якої ви встановите абсолютне положення, і натисніть Кутулс > Чарти > Інструменти діаграм > Встановіть абсолютну позицію діаграми.

2. У діалоговому вікні, що вискакує, вкажіть позицію, куди ви будете переміщати діаграму, та натисніть на Ok кнопки.

Тепер обрана діаграма переміщується у вказане положення та одночасно змінюється до заданого діапазону. Дивіться знімок екрана: