# Excelチャートの作成とOLEオブジェクトとしてプレゼンテーションに埋め込む > Source: https://docs.aspose.com/slides/ja/cpp/creating-excel-chart-and-embedding-it-in-presentation-as-ole-object/ Updated: 2024-10-06 {{% alert color="primary" %}} PowerPointスライドでは、データのグラフィカル表示のために編集可能なチャートを使用することは一般的な活動です。Asposeは、C++用のAspose.Cellsを使用してExcelチャートを作成するサポートを提供し、さらにこれらのチャートはC++用のAspose.Slidesを介してPowerPointスライドにOLEオブジェクトとして埋め込むことができます。この記事では、C++を使用してMS ExcelチャートをOLEオブジェクトとしてPowerPointプレゼンテーションに作成および埋め込むための必要な手順と実装について説明します。 {{% /alert %}} ## **必要な手順** ExcelチャートをOLEオブジェクトとしてPowerPointスライドに作成および埋め込むために必要な手順は次のとおりです： 1. Aspose.Cells for C++を使用してExcelチャートを作成します。 2. Aspose.Cells for C++を使用してExcelチャートのOLEサイズを設定します。 3. Aspose.Cells for C++を使用してExcelチャートの画像を取得します。 4. Aspose.Slides for C++を使用してPPTXプレゼンテーション内にOLEオブジェクトとしてExcelチャートを埋め込みます。 5. オブジェクトの変更問題に対応するために、ステップ3で取得した画像でオブジェクト変更画像を置き換えます。 6. 出力プレゼンテーションをPPTX形式でディスクに書き込みます。 ## **必要な手順の実装** 上記の手順をC++で実装する方法は以下のとおりです： ``` cpp //Step - 1: Create an excel chart using Aspose.Cells //-------------------------------------------------- //Create a workbook intrusive_ptr wb = Aspose::Cells::Factory::CreateIWorkbook(); //Add an excel chart int32_t chartRows = 55; int32_t chartCols = 25; int32_t chartSheetIndex = AddExcelChartInWorkbook(wb, chartRows, chartCols); //Step - 2: Set the OLE size of the chart. using Aspose.Cells //----------------------------------------------------------- wb->GetIWorksheets()->SetOleSize(0, chartRows, 0, chartCols); //Step - 3: Get the image of the chart with Aspose.Cells //----------------------------------------------------------- //System::SharedPtr auto imgChart = wb->GetIWorksheets()->GetObjectByIndex(chartSheetIndex)->GetICharts()->GetObjectByIndex(0)->ToImage(); //Save the workbook to stream System::SharedPtr wbStream = ToSlidesMemoryStream(wb->SaveToStream()); //Step - 4 AND 5 //----------------------------------------------------------- //Step - 4: Embed the chart as an OLE object inside .ppt presentation using Aspose.Slides //----------------------------------------------------------- //Step - 5: Replace the object changed image with the image obtained in step 3 to cater Object Changed Issue //----------------------------------------------------------- //Create a presentation System::SharedPtr pres = System::MakeObject(); System::SharedPtr slide = pres->get_Slides()->idx_get(0); // Add the workbook on slide AddExcelChartInPresentation(pres, slide, wbStream, imgChart); //Step - 6: Write the output presentation on disk //----------------------------------------------------------- pres->Save(u"d:/OutputChart.pptx", SaveFormat::Pptx); ``` ``` cpp void AddExcelChartInPresentation(System::SharedPtr pres, System::SharedPtr sld, System::SharedPtr wbStream, intrusive_ptr imgChart) { float oleWidth = pres->get_SlideSize()->get_Size().get_Width(); float oleHeight = pres->get_SlideSize()->get_Size().get_Height(); int32_t x = 0; System::ArrayPtr chartOleData = System::MakeArray(wbStream->get_Length(), 0); wbStream->set_Position(0); wbStream->Read(chartOleData, 0, chartOleData->get_Length()); System::SharedPtr dataInfo = System::MakeObject(chartOleData, u"xls"); System::SharedPtr oof; oof = sld->get_Shapes()->AddOleObjectFrame(static_cast(x), 0.0f, oleWidth, oleHeight, dataInfo); intrusive_ptr cellsOutputStream = new Aspose::Cells::Systems::IO::MemoryStream(); imgChart->Save(cellsOutputStream, Aspose::Cells::Systems::Drawing::Imaging::ImageFormat::GetBmp()); auto imgChartSlides = Images::FromStream(ToSlidesMemoryStream(cellsOutputStream)); oof->get_SubstitutePictureFormat()->get_Picture()->set_Image(pres->get_Images()->AddImage(imgChartSlides)); } ``` ``` cpp System::SharedPtr ToSlidesMemoryStream(intrusive_ptr inputStream) { System::ArrayPtr outputBuffer = System::MakeArray(inputStream->GetLength(), inputStream->GetBuffer()->ArrayPoint()); auto outputStream = System::MakeObject(outputBuffer); return outputStream; } ``` ``` cpp int32_t AddExcelChartInWorkbook(intrusive_ptr wb, int32_t chartRows, int32_t chartCols) { // Array of cell names System::ArrayPtr cellsName = System::MakeArray( { u"A1", u"A2", u"A3", u"A4", u"B1", u"B2", u"B3", u"B4", u"C1", u"C2", u"C3", u"C4", u"D1", u"D2", u"D3", u"D4", u"E1", u"E2", u"E3", u"E4" }); // Array of cell data System::ArrayPtr cellsValue = System::MakeArray( { 67, 86, 68, 91, 44, 64, 89, 48, 46, 97, 78, 60, 43, 29, 69, 26, 24, 40, 38, 25 }); // Add a new worksheet to populate cells with data int32_t dataSheetIdx = wb->GetIWorksheets()->Add(); intrusive_ptr dataSheet = wb->GetIWorksheets()->GetObjectByIndex(dataSheetIdx); intrusive_ptr sheetName = new Aspose::Cells::Systems::String("DataSheet"); dataSheet->SetName(sheetName); // Populate DataSheet with data for (int32_t i = 0; i < cellsName->get_Length(); i++) { System::String cellName = cellsName[i]; int32_t cellValue = cellsValue[i]; dataSheet->GetICells()->GetObjectByIndex(new String(cellName.ToWCS().c_str()))->PutValue(cellValue); } // Add a chart sheet int32_t chartSheetIdx = wb->GetIWorksheets()->Add(Aspose::Cells::SheetType::SheetType_Chart); intrusive_ptr chartSheet = wb->GetIWorksheets()->GetObjectByIndex(chartSheetIdx); chartSheet->SetName(new String("ChartSheet")); // Add a chart in ChartSheet with data series from DataSheet int32_t chartIdx = chartSheet->GetICharts()->Add(Aspose::Cells::Charts::ChartType::ChartType_Column, 0, chartRows, 0, chartCols); intrusive_ptr chart = chartSheet->GetICharts()->GetObjectByIndex(chartIdx); chart->GetNISeries()->Add(sheetName + "!A1:E1", false); chart->GetNISeries()->Add(sheetName + "!A2:E2", false); chart->GetNISeries()->Add(sheetName + "!A3:E3", false); chart->GetNISeries()->Add(sheetName + "!A4:E4", false); // Set ChartSheet an active sheet wb->GetIWorksheets()->SetActiveSheetIndex(chartSheetIdx); return chartSheetIdx; } ``` {{% alert color="primary" %}} 上記の方法で作成されたプレゼンテーションは、OLEオブジェクトとしてExcelチャートを含み、OLEオブジェクトフレームをダブルクリックすることでアクティブ化できます。 {{% /alert %}} ## **結論** {{% alert color="primary" %}} C++用のAspose.CellsとC++用のAspose.Slidesを使用することで、Aspose.Cells for C++でサポートされている任意のExcelチャートを作成し、作成したチャートをPowerPointスライド内のOLEオブジェクトとして埋め込むことができます。ExcelチャートのOLEサイズも定義できます。エンドユーザーは他のOLEオブジェクトのようにExcelチャートをさらに編集できます。 {{% /alert %}} ## **関連セクション** [チャートのサイズ変更に関する作業ソリューション](https://docs.aspose.com/slides/cpp/working-solution-for-chart-resizing-in-pptx/)