Például létrehozott egy diagramot, és véletlenszerűen elhelyezte azt a munkalapon, az alábbi képernyőkép szerint. Most bemutatok egy VBA-t, amellyel gyorsan áthelyezhetem a diagramot precíz és abszolút helyzetbe.

1. Válassza ki azt a diagramot, amelyhez az abszolút helyzetet beállítja, majd nyomja meg a más + F11 gombokkal nyissa meg a Microsoft Visual Basic for Applications ablakot.

2. Kattints betétlap > Modulok, és illessze be a VBA alá az új modul ablakba.

VBA: A diagram abszolúciós helyzetének beállítása az Excel programban

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

Megjegyzések: A fenti kódban XRg = Tartomány beállítása ("D1: J13") azt jelenti, hogy mozgassa és helyezze a diagramot a D1: J13 tartományba. Szükség szerint megváltoztathatja a tartományt.

3. nyomja meg F5 vagy kattintson a gombra futás gombra a VBA futtatásához.

Most látni fogja, hogy a diagram a VBA-ban megadott pontos pozícióba kerül. Lásd a képernyőképet:

Ha telepítette a Kutools for Excel programot, használhatja csodálatos diagrameszközét - Állítsa be a diagram abszolút helyzetét diagram áthelyezése és átméretezése egy meghatározott tartományba az Excelben.

1. Válassza ki azt a diagramot, amelyre az abszolút pozíciót beállítja, majd kattintson Kutools > táblázatok > Diagrameszközök > Állítsa be a diagram abszolút helyzetét.

2. A felbukkanó párbeszédpanelen adja meg azt a helyet, ahová áthelyezi a diagramot, majd kattintson a gombra Ok gombot.

Most a kiválasztott diagram áthelyezi a megadott pozíciót, és egyidejűleg átméretezi a megadott tartományba. Lásd a képernyőképet: