U hebt bijvoorbeeld een grafiek gemaakt en deze willekeurig in het werkblad geplaatst, zoals onderstaand screenshot. Nu zal ik een VBA introduceren om de grafiek snel en gemakkelijk naar een precieze en absolute positie te verplaatsen.

1. Selecteer de kaart waarvoor u de absolutiepositie wilt instellen en druk op anders + F11 -toetsen om het venster Microsoft Visual Basic for Applications te openen.

2. Klikken Invoegen > Module, en plak onder VBA in het nieuwe modulevenster.

VBA: stel de absolutiepositie van een grafiek in Excel in

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

Note: In bovenstaande code, Stel xRg in = Bereik("D1:J13") betekent dat u de kaart verplaatst en in bereik D1:J13 plaatst. U kunt het bereik naar wens wijzigen.

3. pers F5 toets of klik op de lopen knop om deze VBA uit te voeren.

Nu zult u zien dat de kaart naar de exacte positie wordt verplaatst zoals u in de VBA hebt opgegeven. Zie schermafbeelding:

Als je Kutools voor Excel hebt geïnstalleerd, kun je de geweldige grafiektool toepassen - Stel de absolute positie van de kaart in om een ​​diagram te verplaatsen en het formaat ervan te wijzigen naar een opgegeven bereik in Excel.

1. Selecteer de grafiek waarop u de absolute positie wilt instellen en klik Kutools > Grafieken > Hulpmiddelen voor grafieken > Stel de absolute positie van de kaart in.

2. Geef in het pop-upvenster de positie op waarnaar u het diagram wilt verplaatsen en klik op de knop Ok knop.

Nu wordt het geselecteerde diagram naar de opgegeven positie verplaatst en tegelijkertijd vergroot of verkleind naar het opgegeven bereik. Zie schermafbeelding: