梅根有她在Excel中创建的月度报告。除了必须手动处理的一个烦人的问题外，她的大多数报告都是自动化的。该报告包括四个饼图，用于说明报告中的某些值。每个饼图的大小都有点不同，手动任务是Megan需要使它们大小相同。她希望它们中的每一个都为5厘米见方，并且希望有一种方法来消除每月格式化它们的繁琐工作。

每个饼图的大小略有不同的原因是，当您使用默认设置创建图表时，Excel决定它可以根据需要调整图表大小。大小调整取决于多个因素，例如可用空间，标签大小，数据点数等。一种提高每个图表大小相同的机会的方法是创建第一个图表，然后使用Ctrl + C和Ctrl + V将图表复制其他三遍。每个应相同，然后您可以调整图表中反映的数据范围，以便它们显示所需的范围。

如果复制和粘贴图表不切实际（例如，如果图表是由宏创建的），则您可能只对使用快速宏调整工作表中所有图表的大小感兴趣。下面的宏将逐步浏览每个图表，并将“高度”和“宽度”属性调整为5厘米。

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

注意：

如果您想知道如何使用此页面（或_ExcelTips_网站上的任何其他页面）中描述的宏，我准备了一个特殊页面，其中包含有用的信息。

点击此处在新的浏览器标签中打开该特殊页面。

_ExcelTips_是您进行经济高效的Microsoft Excel培训的来源。

本技巧（2429）适用于Microsoft Excel 97、2000、2002和2003。可以在以下功能区中为Excel的功能区界面（Excel 2007及更高版本）找到本技巧的版本：

指定图表大小。