Hoe stel je de absolute positie van een grafiek in Excel in?

Stel dat je een grafiek hebt gemaakt en deze willekeurig in het werkblad hebt geplaatst, zoals in de onderstaande schermafbeelding te zien is. Nu zal ik een VBA introduceren om de grafiek snel en gemakkelijk naar een precieze en absolute positie te verplaatsen.

1. Selecteer de grafiek waarvoor je de absolute positie wilt instellen en druk op Alt + F11 om het Microsoft Visual Basic for Applications-venster te openen.

2. Klik op Invoegen > Module en plak de volgende VBA in het nieuwe modulevenster.

VBA: Stel de absolute positie 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

Opmerking: In bovenstaande code betekent Set xRg = Range("D1:J13") dat de grafiek wordt verplaatst en geplaatst in Bereik D1:J13. Je kunt het bereik naar behoefte aanpassen.

3. Druk op F5 of klik op de Uitvoeren-knop om deze VBA uit te voeren.

Nu zie je dat de grafiek naar de precieze positie wordt verplaatst zoals je hebt gespecificeerd in de VBA. Zie schermafbeelding:

Als je Kutools voor Excel hebt geïnstalleerd, kun je zijn geweldige grafiekhulpmiddel – Stel de Absolute Positie van de Grafiek in – gebruiken om een grafiek naar een gespecificeerd bereik in Excel te verplaatsen en te herschalen.

1. Selecteer de grafiek die je op een absolute positie wilt instellen en klik Kutools > Grafieken > Grafiektools > Stel de Absolute Positie van de Grafiek in.

2. Specificeer in het pop-updialoogvenster de positie waarnaar je de grafiek wilt verplaatsen en klik op de Ok knop.

Nu wordt de geselecteerde grafiek verplaatst naar de gespecificeerde positie en tegelijkertijd aangepast aan het gespecificeerde bereik. Zie schermafbeelding: