Wie legt man die absolute Position eines Diagramms in Excel fest?

Angenommen, Sie haben ein Diagramm erstellt und es wie im folgenden Screenshot gezeigt zufällig im Arbeitsblatt platziert. Nun werde ich ein VBA vorstellen, um das Diagramm schnell und einfach an eine genaue und absolute Position zu verschieben.

1. Wählen Sie das Diagramm aus, für das Sie die absolute Position festlegen möchten, und drücken Sie die Tasten Alt + F11, um das Microsoft Visual Basic for Applications-Fenster zu öffnen.

2. Klicken Sie auf Einfügen > Modul und fügen Sie das folgende VBA in das neue Modulfenster ein.

VBA: Absolute Position eines Diagramms in Excel festlegen

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

Hinweis: Im obigen Code bedeutet Set xRg = Range("D1:J13"), dass das Diagramm in den Bereich D1:J13 verschoben und platziert wird. Sie können den Bereich nach Bedarf ändern.

3. Drücken Sie die Taste F5 oder klicken Sie auf die Schaltfläche Ausführen, um dieses VBA auszuführen.

Jetzt sehen Sie, dass das Diagramm an die präzise Position verschoben wurde, die Sie im VBA angegeben haben. Siehe Screenshot:

Wenn Sie Kutools für Excel installiert haben, können Sie sein fantastisches Diagramm-Tool – Diagramm absolute Position festlegen – verwenden, um ein Diagramm in Excel auf einen bestimmten Bereich zu verschieben und zu skalieren.

1Wählen Sie das Diagramm aus, das Sie auf eine absolute Position setzen möchten, und klicken Sie auf Kutools > Diagramme > Diagrammtools > Diagramm absolute Position festlegen.

2Geben Sie im erscheinenden Dialogfeld die Position an, zu der Sie das Diagramm verschieben möchten, und klicken Sie auf die OK Schaltfläche.

Nun wird das ausgewählte Diagramm gleichzeitig an die angegebene Position verschoben und auf den angegebenen Bereich skaliert. Siehe Screenshot: