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

Opmerking:: In bovenstaande code, Set xRg = Range ("D1: J13") betekent verplaats en plaats de kaart in bereik D1: J13. U kunt het bereik naar behoefte 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 hebt opgegeven in de VBA. Zie screenshot:

Als u Kutools voor Excel hebt geïnstalleerd, kunt u 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.

Kutools for Excel - Bevat meer dan 300 handige tools voor Excel. Gratis proefperiode van 30 dagen met volledige functionaliteit, geen creditcard vereist! Nu gratis proberen!

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-outvenster de positie op waarnaar u het diagram wilt verplaatsen en klik op het Ok knop.

Nu wordt de geselecteerde kaart naar de opgegeven positie verplaatst en tegelijkertijd aangepast naar het opgegeven bereik. Zie screenshot: