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

Angenommen, Sie haben ein Diagramm erstellt und es – wie im folgenden Screenshot gezeigt – beliebig auf dem Arbeitsblatt platziert. Im Folgenden stelle ich Ihnen ein VBA-Skript vor, mit dem Sie das Diagramm schnell und einfach an eine exakte, absolute Position verschieben können.

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

2. Klicken Sie auf Einfügen > Modul, und fügen Sie den folgenden VBA-Code 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 dort platziert wird. Sie können den Bereich ganz nach Ihren Wünschen anpassen.

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

Nun sehen Sie, dass das Diagramm exakt an die Position verschoben wurde, die Sie im VBA-Code angegeben haben. Siehe Screenshot:

Wenn Sie Kutools für Excel installiert haben, können Sie dessen hervorragendes Diagrammwerkzeug –Diagramm absolute Position festlegen– verwenden, um ein Diagramm in Excel in einen begrenzten Bereich zu verschieben und dessen Größe anzupassen.

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

2. Geben Sie im erscheinenden Dialogfeld die Position an, an die das Diagramm verschoben werden soll, und klicken Sie auf die Schaltfläche OK.

Das ausgewählte Diagramm wird nun an die angegebene Position verschoben und gleichzeitig auf den begrenzten Bereich skaliert. Siehe Screenshot: