Microsoft PowerPoint スライドに OLE オブジェクトとして Excel チャートを作成し埋め込む
Contents
[
Hide
]
チャートはデータの視覚的表現であり、プレゼンテーションスライドで広く使用されています。本記事では、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;
}