Microsoft PowerPoint スライドに OLE オブジェクトとして Excel チャートを作成し埋め込む

チャートはデータの視覚的表現であり、プレゼンテーションスライドで広く使用されています。本記事では、VSTO と Aspose.Slides for .NET を使用して、Excel チャートを OLE オブジェクトとして PowerPoint スライドにプログラムで作成し埋め込むコードを示します。

Excel チャートの作成と埋め込み

以下の二つのコード例は、説明しているタスクが絡んでいるため、長く詳細です。Microsoft Excel ワークブックを作成し、チャートを作成し、そのチャートを埋め込む Microsoft PowerPoint プレゼンテーションを作成します。OLE オブジェクトには元の文書へのリンクが含まれているため、埋め込まれたファイルをダブルクリックするユーザーはファイルとそのアプリケーションを起動します。

VSTO の例

VSTO を使用して、以下のステップが実行されます：

Microsoft Excel ApplicationClass オブジェクトのインスタンスを作成します。
1 シートの新しいワークブックを作成します。
シートにチャートを追加します。
ワークブックを保存します。
チャートデータを含むワークシートを持つ Excel ワークブックを開きます。
シートの ChartObjects コレクションを取得します。
コピーするチャートを取得します。
Microsoft PowerPoint プレゼンテーションを作成します。
プレゼンテーションに空白のスライドを追加します。
Excel ワークシートからクリップボードにチャートをコピーします。
チャートを PowerPoint プレゼンテーションに貼り付けます。
スライド上にチャートを配置します。
プレゼンテーションを保存します。

CreateNewChartInExcel();
UseCopyPaste();

static void SetCellValue(xlNS.Worksheet targetSheet, string Cell, object Value)
{
    targetSheet.get_Range(Cell, Cell).set_Value(xlNS.XlRangeValueDataType.xlRangeValueDefault, Value);
}

static void CreateNewChartInExcel()
{
    // Excel ApplicationClass インスタンスのための変数を宣言します。
    Microsoft.Office.Interop.Excel.ApplicationClass excelApplication = null;

    // Workbooks.Open メソッドのパラメータのための変数を宣言します。
    string paramWorkbookPath = Application.StartupPath + @"\ChartData.xlsx";
    object paramMissing = Type.Missing;

    // Chart.ChartWizard メソッドのための変数を宣言します。
    object paramChartFormat = 1;
    object paramCategoryLabels = 0;
    object paramSeriesLabels = 0;
    bool paramHasLegend = true;
    object paramTitle = "四半期ごとの売上";
    object paramCategoryTitle = "会計四半期";
    object paramValueTitle = "十億";

    try
    {
        // Excel ApplicationClass オブジェクトのインスタンスを作成します。
        excelApplication = new Microsoft.Office.Interop.Excel.ApplicationClass();

        // 1 シートの新しいワークブックを作成します。
        xlNS.Workbook newWorkbook = excelApplication.Workbooks.Add(xlNS.XlWBATemplate.xlWBATWorksheet);

        // シートの名前を変更します。
        xlNS.Worksheet targetSheet = (xlNS.Worksheet)(newWorkbook.Worksheets[1]);
        targetSheet.Name = "四半期ごとの売上";

        // シートにチャート用のデータを挿入します。
        //              A       B       C       D       E
        //     1                Q1      Q2      Q3      Q4
        //     2    N. America  1.5     2       1.5     2.5
        //     3    S. America  2       1.75    2       2
        //     4    Europe      2.25    2       2.5     2
        //     5    Asia        2.5     2.5     2       2.75

        SetCellValue(targetSheet, "A2", "N. America");
        SetCellValue(targetSheet, "A3", "S. America");
        SetCellValue(targetSheet, "A4", "Europe");
        SetCellValue(targetSheet, "A5", "Asia");

        SetCellValue(targetSheet, "B1", "Q1");
        SetCellValue(targetSheet, "B2", 1.5);
        SetCellValue(targetSheet, "B3", 2);
        SetCellValue(targetSheet, "B4", 2.25);
        SetCellValue(targetSheet, "B5", 2.5);

        SetCellValue(targetSheet, "C1", "Q2");
        SetCellValue(targetSheet, "C2", 2);
        SetCellValue(targetSheet, "C3", 1.75);
        SetCellValue(targetSheet, "C4", 2);
        SetCellValue(targetSheet, "C5", 2.5);

        SetCellValue(targetSheet, "D1", "Q3");
        SetCellValue(targetSheet, "D2", 1.5);
        SetCellValue(targetSheet, "D3", 2);
        SetCellValue(targetSheet, "D4", 2.5);
        SetCellValue(targetSheet, "D5", 2);

        SetCellValue(targetSheet, "E1", "Q4");
        SetCellValue(targetSheet, "E2", 2.5);
        SetCellValue(targetSheet, "E3", 2);
        SetCellValue(targetSheet, "E4", 2);
        SetCellValue(targetSheet, "E5", 2.75);

        // チャートデータを持つ範囲を取得します。
        xlNS.Range dataRange = targetSheet.get_Range("A1", "E5");

        // シートの ChartObjects コレクションを取得します。
        xlNS.ChartObjects chartObjects = (xlNS.ChartObjects)(targetSheet.ChartObjects(paramMissing));

        // コレクションにチャートを追加します。
        xlNS.ChartObject newChartObject = chartObjects.Add(0, 100, 600, 300);
        newChartObject.Name = "売上チャート";

        // データの新しいチャートを作成します。
        newChartObject.Chart.ChartWizard(dataRange, xlNS.XlChartType.xl3DColumn, paramChartFormat, xlNS.XlRowCol.xlRows,
            paramCategoryLabels, paramSeriesLabels, paramHasLegend, paramTitle, paramCategoryTitle, paramValueTitle, paramMissing);

        // ワークブックを保存します。
        newWorkbook.SaveAs(paramWorkbookPath, paramMissing, paramMissing, paramMissing, paramMissing,
            paramMissing, xlNS.XlSaveAsAccessMode.xlNoChange, paramMissing, paramMissing, paramMissing, paramMissing, paramMissing);
    }
    catch (Exception ex)
    {
        Console.WriteLine(ex.Message);
    }
    finally
    {
        if (excelApplication != null)
        {
            // Excel を閉じます。
            excelApplication.Quit();
        }
    }
}

static void UseCopyPaste()
{
    // PowerPoint オブジェクトへの参照を保持する変数を宣言します。
    pptNS.ApplicationClass powerpointApplication = null;
    pptNS.Presentation pptPresentation = null;
    pptNS.Slide pptSlide = null;
    pptNS.ShapeRange shapeRange = null;

    // Excel オブジェクトへの参照を保持する変数を宣言します。
    xlNS.ApplicationClass excelApplication = null;
    xlNS.Workbook excelWorkBook = null;
    xlNS.Worksheet targetSheet = null;
    xlNS.ChartObjects chartObjects = null;
    xlNS.ChartObject existingChartObject = null;

    string paramPresentationPath = Application.StartupPath + @"\ChartTest.pptx";
    string paramWorkbookPath = Application.StartupPath + @"\ChartData.xlsx";
    object paramMissing = Type.Missing;

    try
    {
        // PowerPoint のインスタンスを作成します。
        powerpointApplication = new pptNS.ApplicationClass();

        // Excel のインスタンスを作成します。
        excelApplication = new xlNS.ApplicationClass();

        // チャートデータを含むワークシートを持つ Excel ワークブックを開きます。
        excelWorkBook = excelApplication.Workbooks.Open(paramWorkbookPath,
            paramMissing, paramMissing, paramMissing, paramMissing, paramMissing,
            paramMissing, paramMissing, paramMissing, paramMissing, paramMissing,
            paramMissing, paramMissing, paramMissing, paramMissing);

        // チャートを含むワークシートを取得します。
        targetSheet =
            (xlNS.Worksheet)(excelWorkBook.Worksheets["四半期ごとの売上"]);

        // シートの ChartObjects コレクションを取得します。
        chartObjects =
            (xlNS.ChartObjects)(targetSheet.ChartObjects(paramMissing));

        // コピーするチャートを取得します。
        existingChartObject =
            (xlNS.ChartObject)(chartObjects.Item("売上チャート"));

        // PowerPoint プレゼンテーションを作成します。
        pptPresentation =
            powerpointApplication.Presentations.Add(
            Microsoft.Office.Core.MsoTriState.msoTrue);

        // プレゼンテーションに空白のスライドを追加します。
        pptSlide =
            pptPresentation.Slides.Add(1, pptNS.PpSlideLayout.ppLayoutBlank);

        // Excel ワークシートからチャートをクリップボードにコピーします。
        existingChartObject.Copy();

        // チャートを PowerPoint プレゼンテーションに貼り付けます。
        shapeRange = pptSlide.Shapes.Paste();

        // スライド上にチャートを配置します。
        shapeRange.Left = 60;
        shapeRange.Top = 100;

        // プレゼンテーションを保存します。
        pptPresentation.SaveAs(paramPresentationPath, pptNS.PpSaveAsFileType.ppSaveAsOpenXMLPresentation, Microsoft.Office.Core.MsoTriState.msoTrue);
    }
    catch (Exception ex)
    {
        Console.WriteLine(ex.Message);
    }
    finally
    {
        // PowerPoint スライドオブジェクトを解放します。
        shapeRange = null;
        pptSlide = null;

        // プレゼンテーションオブジェクトを閉じて解放します。
        if (pptPresentation != null)
        {
            pptPresentation.Close();
            pptPresentation = null;
        }

        // PowerPoint を終了して ApplicationClass オブジェクトを解放します。
        if (powerpointApplication != null)
        {
            powerpointApplication.Quit();
            powerpointApplication = null;
        }

        // Excel オブジェクトを解放します。
        targetSheet = null;
        chartObjects = null;
        existingChartObject = null;

        // Excel Workbook オブジェクトを閉じて解放します。
        if (excelWorkBook != null)
        {
            excelWorkBook.Close(false, paramMissing, paramMissing);
            excelWorkBook = null;
        }

        // Excel を終了して ApplicationClass オブジェクトを解放します。
        if (excelApplication != null)
        {
            excelApplication.Quit();
            excelApplication = null;
        }

        GC.Collect();
        GC.WaitForPendingFinalizers();
        GC.Collect();
        GC.WaitForPendingFinalizers();
    }
}

Aspose.Slides for .NET の例

Aspose.Slides for .NET を使用して、以下のステップが実行されます：

Aspose.Cells for .NET を使用してワークブックを作成します。
Microsoft Excel チャートを作成します。
Excel チャートの OLE サイズを設定します。
チャートの画像を取得します。
Aspose.Slides for .NET を使用して PPTX プレゼンテーション内に Excel チャートを OLE オブジェクトとして埋め込みます。
ステップ 3 で取得した画像で変更されたオブジェクトの画像を置き換えて、オブジェクト変更の問題に対処します。
出力プレゼンテーションを PPTX 形式でディスクに書き込みます。

//ステップ - 1: Aspose.Cells を使用して Excel チャートを作成
//--------------------------------------------------
//ワークブックを作成
Aspose.Cells.Workbook wb = new Aspose.Cells.Workbook();
//Excel チャートを追加
int chartRows = 55;
int chartCols = 25;
int chartSheetIndex = AddExcelChartInWorkbook(wb, chartRows, chartCols);
//ステップ - 2: チャートの OLE サイズを設定します。Aspose.Cells を使用
//-----------------------------------------------------------
wb.Worksheets.SetOleSize(0, chartRows, 0, chartCols);
//ステップ - 3: Aspose.Cells でチャートの画像を取得
//-----------------------------------------------------------
Bitmap imgChart = wb.Worksheets[chartSheetIndex].Charts[0].ToImage();
//ストリームにワークブックを保存
MemoryStream wbStream = wb.SaveToStream();
//ステップ - 4 と 5
//-----------------------------------------------------------
//ステップ - 4: Aspose.Slides を使用して .ppt プレゼンテーション内にチャートを OLE オブジェクトとして埋め込みます
//-----------------------------------------------------------
//ステップ - 5: 変更されたオブジェクトの画像をステップ 3 で取得した画像で置き換え、オブジェクト変更の問題に対処します
//-----------------------------------------------------------
//プレゼンテーションを作成
Presentation pres = new Presentation();
ISlide sld = pres.Slides[0];
//スライドにワークブックを追加します
AddExcelChartInPresentation(pres, sld, wbStream, imgChart);
//ステップ - 6: 出力プレゼンテーションをディスクに書き込みます
//-----------------------------------------------------------
pres.Save("OutputChart.pptx", Aspose.Slides.Export.SaveFormat.Pptx);

static void AddExcelChartInPresentation(Presentation presentation, ISlide slide, Stream workbookStream, Bitmap chartImage)
{
    float oleWidth = presentation.SlideSize.Size.Width;
    float oleHeight = presentation.SlideSize.Size.Height;

    byte[] chartOleData = new byte[workbookStream.Length];
    workbookStream.Position = 0;
    workbookStream.Read(chartOleData, 0, chartOleData.Length);

    OleEmbeddedDataInfo dataInfo = new OleEmbeddedDataInfo(chartOleData, "xls");
    IOleObjectFrame oleFrame = slide.Shapes.AddOleObjectFrame(0, 0, oleWidth, oleHeight, dataInfo);

    using (MemoryStream imageStream = new MemoryStream())
    {
        chartImage.Save(imageStream, System.Drawing.Imaging.ImageFormat.Png);

	imageStream.Position = 0;
        IPPImage image = presentation.Images.AddImage(imageStream);

        oleFrame.SubstitutePictureFormat.Picture.Image = image;
    }
}

static int AddExcelChartInWorkbook(Aspose.Cells.Workbook wb, int chartRows, int chartCols)
{
    //セル名の配列
    string[] cellsName = new string[]
      {
  "A1", "A2", "A3", "A4",
  "B1", "B2", "B3", "B4",
  "C1", "C2", "C3", "C4",
  "D1", "D2", "D3", "D4",
  "E1", "E2", "E3", "E4"
      };

    //セルデータの配列
    int[] cellsValue = new int[]
      {
 67,86,68,91,
 44,64,89,48,
 46,97,78,60,
 43,29,69,26,
 24,40,38,25
      };
    //データでセルを埋めるための新しいワークシートを追加します
    int dataSheetIdx = wb.Worksheets.Add();
    Aspose.Cells.Worksheet dataSheet = wb.Worksheets[dataSheetIdx];
    string sheetName = "データシート";
    dataSheet.Name = sheetName;
    //データシートをデータで埋めます
    for (int i = 0; i < cellsName.Length; i++)
    {
        string cellName = cellsName[i];
        int cellValue = cellsValue[i];
        dataSheet.Cells[cellName].PutValue(cellValue);
    }
    //チャートシートを追加します
    int chartSheetIdx = wb.Worksheets.Add(Aspose.Cells.SheetType.Chart);
    Aspose.Cells.Worksheet chartSheet = wb.Worksheets[chartSheetIdx];
    chartSheet.Name = "チャートシート";
    //データシートからデータ系列を使用してチャートシートにチャートを追加します
    int chartIdx = chartSheet.Charts.Add(Aspose.Cells.Charts.ChartType.Column, 0, chartRows, 0, chartCols);
    Aspose.Cells.Charts.Chart chart = chartSheet.Charts[chartIdx];
    chart.NSeries.Add(sheetName + "!A1:E1", false);
    chart.NSeries.Add(sheetName + "!A2:E2", false);
    chart.NSeries.Add(sheetName + "!A3:E3", false);
    chart.NSeries.Add(sheetName + "!A4:E4", false);
    //チャートシートをアクティブシートに設定します
    wb.Worksheets.ActiveSheetIndex = chartSheetIdx;
    return chartSheetIdx;
}

アニメーション付きの画像フレームの追加 Microsoft PowerPoint プレゼンテーションでのチャート作成