Например, създали сте диаграма и сте я поставили произволно в работния лист, както е показано на екранната снимка по-долу. Сега ще представя 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 клавиша или щракнете върху бягане бутон за стартиране на този VBA.

Сега ще видите, че диаграмата е преместена на точната позиция, както сте посочили във VBA. Вижте екранна снимка:

Ако имате инсталиран Kutools за Excel, можете да приложите неговия удивителен инструмент за диаграми – Задайте абсолютна позиция на графиката за преместване и преоразмеряване на диаграма до определен диапазон в Excel.

1. Изберете диаграмата, на която ще зададете абсолютна позиция, и щракнете Kutools > Графики > Инструменти за диаграми > Задайте абсолютна позиция на графиката.

2. В изскачащия диалогов прозорец посочете позицията, на която ще преместите диаграмата, и щракнете върху Ok бутон.

Сега избраната диаграма се премества на посочената позиция и едновременно се преоразмерява до посочения диапазон. Вижте екранна снимка: