Excel のワークシートにプログラムですべての埋め込みグラフを印刷する

• 適用対象:

  Excel 2007, Excel 2003, Excel 2002, Excel 2000

Microsoft Excel では、Excel ワークシート内のすべての埋め込みグラフを印刷する Microsoft Visual Basic for Applications マクロを作成できます。 各グラフは別のページに印刷されます。

詳細

Microsoft は、例示のみを目的としてプログラミング例を提供しており、明示または黙示にかかわらず、いかなる責任も負わないものとします。 これには、市販性または特定の目的との適合性についての黙示の保証も含まれますが、これに限定はされません。 この記事は、説明されているプログラミング言語、手順を作成およびデバッグするために使用されているツールに読者が精通していることを前提にしています。 マイクロソフト サポート窓口では、特定のプロシージャの機能説明に関するご質問に対して支援いたしますが、本例を特定の目的を満たすために機能を追加したり、プロシージャを構築することは行いません。 ワークシート内のすべての埋め込みグラフを印刷し、各グラフを別のページに印刷できるサンプル マクロを作成するには、次の手順に従います。

1. Excel を起動し、埋め込まれたグラフを含むワークシートを含むブックを開きます。

2. Alt キーを押しながら F11 キーを押して Visual Basic エディターを開始します。

3. [挿入] メニューの [モジュール] をクリックします。

4. モジュール シートで、次のコードを入力するか貼り付けます。

   Sub PrintEmbeddedCharts()
        Dim ChartList As Integer
        Dim X As Integer
        ' Variable chartlist stores a count of all embedded charts.
        ChartList = ActiveSheet.ChartObjects.Count
        ' Increments the counter variable 'X' in a loop.
        For X = 1 To ChartList
            ' Selects the chart object.
            ActiveSheet.ChartObjects(X).Select
            ' Makes chart active.
            ActiveSheet.ChartObjects(X).Activate
            ' Prints one copy of active chart.
            ActiveChart.PrintOut Copies:=1
        Next
   End Sub
   

5. [ファイル] メニューの [閉じる] をクリック し、Microsoft Excel に戻ります。

6. 埋め込みグラフを含むワークシートを選択します。

7. [ツール] メニューの [マクロ] をポイントし、[マクロ] をクリックします。

8. [ マクロ名 ] の一覧で、[PrintEmbeddedCharts] をクリックし、[実行] をクリックします。