Sie haben beispielsweise ein Diagramm erstellt und es zufällig im Arbeitsblatt platziert (siehe Abbildung unten). Jetzt werde ich eine VBA einführen, um das Diagramm schnell und einfach an eine präzise und absolute Position zu bringen.

1. Wählen Sie das Diagramm aus, für das Sie die Absolutionsposition festlegen möchten, und drücken Sie Andere + F11 Tasten zum Öffnen des Fensters Microsoft Visual Basic für Applikationen.

2. Klicken Sie Insert > Modulund fügen Sie unter VBA in das neue Modulfenster ein.

VBA: Legen Sie die Absolutionsposition eines Diagramms in Excel fest

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: Im obigen Code, Setze xRg = Range("D1:J13") bedeutet, das Diagramm in den Bereich D1:J13 zu verschieben und zu platzieren. Sie können den Bereich nach Bedarf ändern.

3. Drücken Sie F5 Taste oder klicken Sie auf Führen Sie Schaltfläche, um diese VBA auszuführen.

Jetzt sehen Sie, dass das Diagramm genau an die Position verschoben wird, die Sie im VBA angegeben haben. Siehe Screenshot:

Wenn Sie Kutools für Excel installiert haben, können Sie das erstaunliche Diagrammtool anwenden – Stellen Sie die absolute Position des Diagramms ein um ein Diagramm in Excel in einen bestimmten Bereich zu verschieben und seine Größe zu ändern.

1. Wählen Sie das Diagramm aus, dessen absolute Position Sie festlegen möchten, und klicken Sie Kutoolen > Charts > Diagrammwerkzeuge > Stellen Sie die absolute Position des Diagramms ein.

2. Geben Sie im Popup-Dialogfeld die Position an, an die Sie das Diagramm verschieben möchten, und klicken Sie auf Ok .

Jetzt wird das ausgewählte Diagramm um die angegebene Position verschoben und gleichzeitig die Größe auf den angegebenen Bereich geändert. Siehe Screenshot: