De exemplu, ați creat un grafic și l-ați plasat la întâmplare în foaia de lucru, așa cum este prezentat mai jos. Acum voi introduce un VBA pentru a muta rapid graficul într-o poziție precisă și absolută cu ușurință.

1. Selectați graficul pentru care veți seta poziția de absolvire și apăsați Alt + F11 tastele pentru a deschide fereastra Microsoft Visual Basic pentru aplicații.

2. Clic Insera > Module, și lipiți mai jos VBA în noua fereastră a modulului.

VBA: setați poziția de eliminare a unui grafic în 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

notițe: În codul de mai sus, Setați xRg = Range ("D1: J13") înseamnă deplasarea și plasarea graficului în Gama D1: J13. Puteți schimba intervalul după cum aveți nevoie.

3. presa F5 tasta sau faceți clic pe Alerga pentru a rula acest VBA.

Acum veți vedea că graficul este mutat în poziția exactă așa cum ați specificat în VBA. Vedeți captura de ecran:

Dacă aveți instalat Kutools pentru Excel, puteți aplica instrumentul său uimitor de diagrame - Setați poziția absolută a diagramei pentru a muta și redimensiona o diagramă într-un interval specificat în Excel.

1. Selectați graficul pe care veți seta poziția absolută și faceți clic Kutools > Grafice > Instrumente pentru diagrame > Setați poziția absolută a diagramei.

2. În dialogul popping out, specificați poziția în care veți muta graficul și faceți clic pe Ok butonul.

Acum, diagrama selectată este mutată în poziția specificată și redimensionată simultan la intervalul specificat. Vedeți captura de ecran: