Megan hat einen monatlichen Bericht, den sie in Excel erstellt. Sie hat den größten Teil des Berichts automatisiert, mit Ausnahme eines lästigen Problems, das sie manuell behandeln muss. Der Bericht enthält vier Kreisdiagramme, mit denen einige Werte aus dem Bericht dargestellt werden. Jedes Kreisdiagramm hat eine etwas andere Größe, und die manuelle Aufgabe besteht darin, dass Megan alle gleich groß machen muss. Sie möchte, dass jeder von ihnen 5 Quadratzentimeter groß ist, und würde gerne die manuelle Plackerei beseitigen, sie jeden Monat zu formatieren.

Der Grund dafür, dass jedes Kreisdiagramm eine etwas andere Größe hat, liegt darin, dass Excel beim Erstellen eines Diagramms mit den Standardeinstellungen entscheidet, dass die Diagrammgröße nach Belieben angepasst werden kann. Diese Größe kann von verschiedenen Faktoren abhängen, z. B. verfügbarem Speicherplatz, Beschriftungsgrößen, Anzahl der Datenpunkte usw. Eine Möglichkeit, die Wahrscheinlichkeit zu verbessern, dass jedes Diagramm dieselbe Größe hat, besteht darin, das erste Diagramm zu erstellen und dann Strg + C und zu verwenden Strg + V, um das Diagramm die anderen drei Male zu kopieren. Jedes sollte identisch sein, und dann können Sie die in den Diagrammen wiedergegebenen Datenbereiche so anpassen, dass sie die gewünschten Bereiche anzeigen.

Wenn es nicht praktikabel ist, die Diagramme zu kopieren und einzufügen (z. B. wenn die Diagramme von Makros erstellt werden), möchten Sie möglicherweise nur ein schnelles Makro verwenden, um die Größe aller Diagramme im Arbeitsblatt anzupassen. Das folgende Makro durchläuft jedes Diagramm und passt die Eigenschaften Höhe und Breite auf 5 Zentimeter an.

Sub AdjChartSizes()

Dim cht As ChartObject     For Each cht In ActiveSheet.ChartObjects         cht.Chart.ChartArea.AutoScaleFont = False         cht.Height = Application.CentimetersToPoints(5)

cht.Width = Application.CentimetersToPoints(5)

Next cht End Sub

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der ExcelTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.

Dieser Tipp (12235) gilt für Microsoft Excel 2007, 2010, 2013 und 2016.

Eine Version dieses Tipps für die ältere Menüoberfläche von Excel finden Sie hier: Festlegen von Diagrammgrößen.