クイックヒント：Excelシート上のすべてのグラフに均一なサイズを適用する - TechRepublic

グラフを作成すると、Excel はスペース、ラベル、データポイントの数などに応じてグラフのサイズを調整します。そのため、各グラフのサイズを同じにしたい場合があります。グラフのサイズを後から強制的に変更するのはそれほど手間はかかりませんが、複数のグラフがある場合や、いくつかのグラフのサイズを頻繁に変更する必要がある場合は、この作業が面倒になることがあります。幸い、複数選択を作成し、すべてのグラフの適切なサイズを一度に入力することができます。この簡単な手動テクニックを、以下のグラフで説明してみましょう。

グラフのサイズが適切であれば、そのグラフを選択し、「書式」タブをクリックして寸法をメモしてください。Excelの「サイズ」グループに、選択したグラフの寸法が表示されます。Excel 2003では、グラフを右クリックし、「オブジェクトの書式設定」を選択してください。

すべてのグラフに同じサイズのディメンションを同時に割り当てるには、次の手順を実行します。

1. 複数選択を作成するには、[Shift] キーを押しながら各チャートをクリックして、すべてのチャートを選択します。
2. コンテキストメニューの「書式」タブをクリックします。Excel 2003では、選択範囲を右クリックし、「オブジェクトの書式設定」を選択します。
3. [サイズ] グループの [図形の高さ] および [図形の幅] オプションを使用して、適切な寸法値を入力します。

Excelは、選択したグラフ1つだけでなく、すべてのグラフにサイズ設定を適用します。そのため、この作業を何度も繰り返す必要がなく、1回で十分です。（グラフの位置を揃えるには、「配置」グループの「配置」オプションを使用します。）

かなり簡単ですが、このプロセスを頻繁に繰り返す場合は、マクロを使って自動化すると良いでしょう。次のマクロは、アクティブシート上のすべてのグラフのサイズを、高さ2インチ、幅4インチ（画面に表示されるものではなく、印刷されたページを基準としたサイズ）に変更します。

サブResizeCharts()

  'アクティブ シート上のすべてのグラフを均一なサイズにします。

  チャートオブジェクトとして暗黙のcht

  ActiveSheet.ChartObjects 内の各 cht

    cht.Height = Application.InchesToPoints(2)

    cht.Width = Application.InchesToPoints(4)

  次

終了サブ

このマクロを入力するには、[Alt]+[F11]キーを押してVisual Basic Editor（VBE）を開きます。次に、「挿入」メニューから「モジュール」を選択し、モジュールにマクロを入力します。

サイズ設定はハードコードされていますが、マクロを拡張してユーザーに両方の値を入力させることができます。センチメートルでの作業に慣れている場合は、InchesToPointsメソッドではなくCentimetersToPointsメソッドを使用してください。寸法を生の値で指定することもできますが、計測単位変換メソッドを使用する場合ほど正確ではありません。例えば、2インチは約144ポイント、4インチは約288ポイントです。同等のステートメントは以下のとおりです。

cht.高さ = 144

cht.幅 = 288

インチをポイントに変換する方法がわからない場合は、オンライン計算機を使用できます。

マクロを実行するには、Excelに戻り、サイズを変更したいグラフを含むシートを選択します。「開発」タブをクリックし、「コード」グループで「マクロ」を選択します。ResizeCharts() を選択し、「実行」をクリックします。Excel 2003の場合は、「ツール」メニューから「マクロ」を選択し、表示されるサブメニューから「マクロ」を選択します。ResizeCharts() を選択し、「実行」をクリックします。

このマクロは、ワークブック全体ではなく、アクティブなシートでのみ機能することに注意してください。