For eksempel har du oprettet et diagram og placeret det tilfældigt i regnearket som vist nedenstående skærmbillede. Nu vil jeg introducere en VBA for hurtigt at flytte diagrammet til en præcis og absolut position.

1. Vælg det diagram, du vil indstille absolutionsposition for, og tryk på andre + F11 taster for at åbne vinduet Microsoft Visual Basic for Applications.

2. Klik indsatte > Moduler, og indsæt under VBA i det nye modulvindue.

VBA: Indstil opløsningsposition for et diagram i 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

Bemærk: I ovenstående kode, Indstil xRg = Range("D1:J13") betyder at flytte og placere kortet i Range D1:J13. Du kan ændre rækkevidden efter behov.

3. Trykke F5 eller klik på Kør knap for at køre denne VBA.

Nu vil du se, at diagrammet er flyttet til den præcise position, som du har angivet i VBA. Se skærmbillede:

Hvis du har installeret Kutools til Excel, kan du anvende dets fantastiske diagramværktøj – Indstil absolut position for diagrammet at flytte og ændre størrelsen på et diagram til et specificeret område i Excel.

1. Vælg det diagram, du vil indstille den absolutte position, og klik Kutools > Diagrammer > Diagramværktøjer > Indstil absolut position for diagrammet.

2. Angiv den position, som du vil flytte diagrammet til, i den åbne dialog, og klik på Ok .

Nu flyttes det valgte diagram til den angivne position, og størrelsen ændres til det angivne område samtidigt. Se skærmbillede: