Hoe stelt u de absolute positie van een grafiek in Excel in?

Stel dat u een grafiek hebt gemaakt en deze willekeurig op het werkblad hebt geplaatst, zoals in de onderstaande schermafbeelding. Ik introduceer nu een VBA-code waarmee u de grafiek snel en eenvoudig naar een exacte, absolute positie kunt verplaatsen.

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

2. Klik op Invoegen > Module en plak de onderstaande VBA-code in het nieuwe modulevenster.

VBA: Absolute positie van een grafiek instellen in 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

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

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

U ziet nu dat de grafiek is verplaatst naar de exacte positie die u hebt opgegeven in de VBA-code. Zie de schermafbeelding:

Als u Kutools voor Excel hebt geïnstalleerd, kunt u het krachtige grafiekhulpmiddel –Stel de absolute positie van de grafiek in– gebruiken om een grafiek naar een beperkt bereik te verplaatsen en te herschalen in Excel.

1. Selecteer de grafiek die u op een vaste positie wilt plaatsen en klik op Kutools > Grafieken > Grafiektools > Stel de absolute positie van de grafiek in.

2. Geef in het verschijnende dialoogvenster de positie op waarnaar u de grafiek wilt verplaatsen en klik op de knop OK.

De geselecteerde grafiek is nu verplaatst naar de opgegeven positie en tegelijkertijd geschaald naar het beperkte bereik. Zie de schermafbeelding: