Meganは、Excelで作成する月次レポートを持っています。彼女は、手動で処理しなければならない1つの厄介な問題を除いて、ほとんどのレポートを自動化しています。レポートには、レポートのいくつかの値を示すために使用される4つの円グラフが含まれています。それぞれの円グラフのサイズは少し異なります。手動のタスクでは、Meganがそれらをすべて同じサイズにする必要があります。彼女は、それぞれを5センチ四方にすることを望んでおり、毎月フォーマットするという手作業による煩わしさを取り除く方法を望んでいます。

各円グラフのサイズが少し異なる理由は、既定の設定でグラフを作成すると、Excelがグラフのサイズを適切と判断して調整できると判断するためです。このサイズ設定は、使用可能なスペース、ラベルサイズ、データポイントの数など、いくつかの要因によって異なります。各グラフが同じサイズになる可能性を高める1つの方法は、最初のグラフを作成してからCtrl + Cを使用してCtrl + Vを押して、チャートを他の3回コピーします。それぞれが同一である必要があります。次に、グラフに反映されるデータ範囲を調整して、目的の範囲が表示されるようにします。

グラフをコピーして貼り付けることが現実的でない場合（たとえば、グラフがマクロで作成されている場合）、クイックマクロを使用してワークシート内のすべてのグラフのサイズを調整することをお勧めします。次のマクロは、各グラフをステップスルーし、HeightプロパティとWidthプロパティを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_サイトの他のページ）で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。

link：/ excelribbon-ExcelTipsMacros [ここをクリックして、新しいブラウザタブでその特別なページを開きます]。

_ExcelTips_は、費用効果の高いMicrosoftExcelトレーニングのソースです。

このヒント（2429）は、Microsoft Excel 97、2000、2002、および2003に適用されます。Excel（Excel 2007以降）のリボンインターフェイス用のこのヒントのバージョンは、次の場所にあります。

link：/ excelribbon-Specifying_Chart_Sizes [グラフサイズの指定]。