忍者ブログ

VB.NET-TIPS などプログラミングについて

VB.NETのTIPS(小技集)を中心に、Javascript、PHP その他のプログラミングについて少し役に立つ情報を発信します。いわゆる個人的な忘備録ですが、みなさんのお役に立てれば幸いです。

PHP PhpSpreadsheet\Chart エクセルシート上に複数のチャートで異なるタイプのグラフ(Bar Chart:棒グラフ、Line Chart:線グラフ、Area Chart:面グラフ)を作成する方法について


今回は4個のチャート上にそれぞれ「Bar Chart:棒グラフ」「Bar Chart:棒グラフ(積み上げ)」「Line Chart:線グラフ」「Area Chart:面グラフ」のグラフを持つ様にしたいと思います。




■4個のチャート上にそれぞれ「Bar Chart:棒グラフ」「Bar Chart:棒グラフ(積み上げ)」「Line Chart:線グラフ」「Area Chart:面グラフ」持つ様に作成

グラフの対象データとなるものは全て同じものを使うため PhpSpreadsheet\DataSeries クラスで生成する 「系列ラベル」「X軸ラベル」「描画データ」は最初に生成し、共通で参照します。

//  チャート用テストデータ生成
$objWorksheet->fromArray(
	array(
		array('売上', '商品1', '商品2', '商品3'),
		array(  2016,      12,      18,      15),
		array(  2017,      15,      19,      10),
		array(  2018,      21,      23,      20),
		array(  2019,      18,      14,      12),
		array(  2020,      20,      21,      23),
	)
);

//  系列ラベルの指定
$arrDataSeriesLabels = array(
	new DataSeriesValues(DataSeriesValues::DATASERIES_TYPE_STRING, 'Worksheet!$B$1', NULL, 1),       //商品1
	new DataSeriesValues(DataSeriesValues::DATASERIES_TYPE_STRING, 'Worksheet!$C$1', NULL, 1),       //商品2
	new DataSeriesValues(DataSeriesValues::DATASERIES_TYPE_STRING, 'Worksheet!$D$1', NULL, 1),       //商品3
);
//  X軸ラベルの指定
$arrCategorysDataSeries = array(
	new DataSeriesValues(DataSeriesValues::DATASERIES_TYPE_STRING, 'Worksheet!$A$2:$A$6', NULL, 5),	//2016 to 2020
);
//  描画データの指定
$arrDataSeriesValues = array(
	new DataSeriesValues(DataSeriesValues::DATASERIES_TYPE_NUMBER, 'Worksheet!$B$2:$B$6', NULL, 5),  //商品1
	new DataSeriesValues(DataSeriesValues::DATASERIES_TYPE_NUMBER, 'Worksheet!$C$2:$C$6', NULL, 5),  //商品2
	new DataSeriesValues(DataSeriesValues::DATASERIES_TYPE_NUMBER, 'Worksheet!$D$2:$D$6', NULL, 5),  //商品3
);

後は個別にチャートを生成するために以下のオブジェクトを個別に生成します。

  • チャート・データシリーズの生成。
  • レジェンド生成。(各折れ線の説明を行う)
  • チャート・タイトル生成。
  • ワークシートにチャート追加。

実際のソースは以下の様になります。

<?php
// ライブラリ読込
require '../vendor/autoload.php';
use PhpOffice\PhpSpreadsheet\Spreadsheet;
use PhpOffice\PhpSpreadsheet\Chart\Chart;
use PhpOffice\PhpSpreadsheet\Chart\DataSeries;
use PhpOffice\PhpSpreadsheet\Chart\DataSeriesValues;
use PhpOffice\PhpSpreadsheet\Chart\PlotArea;
use PhpOffice\PhpSpreadsheet\Chart\Title;
use PhpOffice\PhpSpreadsheet\Chart\Legend;
use PhpOffice\PhpSpreadsheet\IOFactory;

// Spreadsheetオブジェクト生成
$objSpreadsheet = new Spreadsheet();
// ワークシートオブジェクト取得
$objWorksheet = $objSpreadsheet->getActiveSheet();
//  チャート用テストデータ生成
$objWorksheet->fromArray(
	array(
		array('売上', '商品1', '商品2', '商品3'),
		array(  2016,      12,      18,      15),
		array(  2017,      15,      19,      10),
		array(  2018,      21,      23,      20),
		array(  2019,      18,      14,      12),
		array(  2020,      20,      21,      23),
	)
);

//  系列ラベルの指定
$arrDataSeriesLabels = array(
	new DataSeriesValues(DataSeriesValues::DATASERIES_TYPE_STRING, 'Worksheet!$B$1', NULL, 1),       //商品1
	new DataSeriesValues(DataSeriesValues::DATASERIES_TYPE_STRING, 'Worksheet!$C$1', NULL, 1),       //商品2
	new DataSeriesValues(DataSeriesValues::DATASERIES_TYPE_STRING, 'Worksheet!$D$1', NULL, 1),       //商品3
);
//  X軸ラベルの指定
$arrCategorysDataSeries = array(
	new DataSeriesValues(DataSeriesValues::DATASERIES_TYPE_STRING, 'Worksheet!$A$2:$A$6', NULL, 5),	//2016 to 2020
);
//  描画データの指定
$arrDataSeriesValues = array(
	new DataSeriesValues(DataSeriesValues::DATASERIES_TYPE_NUMBER, 'Worksheet!$B$2:$B$6', NULL, 5),  //商品1
	new DataSeriesValues(DataSeriesValues::DATASERIES_TYPE_NUMBER, 'Worksheet!$C$2:$C$6', NULL, 5),  //商品2
	new DataSeriesValues(DataSeriesValues::DATASERIES_TYPE_NUMBER, 'Worksheet!$D$2:$D$6', NULL, 5),  //商品3
);

//=====================
//    Bar Chart
//=====================
//	チャート・データシリーズの生成
$objSeries1 = new DataSeries(
	DataSeries::TYPE_BARCHART,		// plotType
	DataSeries::GROUPING_STANDARD,	// plotGrouping
	range(0, count($arrDataSeriesValues) - 1),      // plotOrder
	$arrDataSeriesLabels,                           // plotLabel
	$arrCategorysDataSeries,                        // plotCategory
	$arrDataSeriesValues                            // plotValues
);
//	プロットエリアにチャート・データシリーズに設定
$objPlotArea1 = new PlotArea(NULL, array($objSeries1));
//	レジェンド生成(各折れ線の説明を行う)
$objLegend1 = new Legend(Legend::POSITION_TOPRIGHT, NULL, false);
//  チャート・タイトル生成
$objTitle1 = new Title('売上データ:Bar Chart');
//	チャート生成
$objChart1 = new Chart(
	'chart1',       // name
	$objTitle1,     // title
	$objLegend1,    // legend
	$objPlotArea1,  // plotArea
	TRUE,           // plotVisibleOnly
	0,              // displayBlanksAs
	NULL,           // xAxisLabel
	NULL		    // yAxisLabel
);
//	ワークシート内のチャート位置設定
$objChart1->setTopLeftPosition('A8');        // 左上
$objChart1->setBottomRightPosition('G20');   // 右下
//	ワークシートにチャート追加
$objWorksheet->addChart($objChart1);

//=====================
//    Bar Chart:STACKED
//=====================
//	チャート・データシリーズの生成
$objSeries2 = new DataSeries(
	DataSeries::TYPE_BARCHART,		// plotType
	DataSeries::GROUPING_PERCENT_STACKED,    // plotGrouping
	range(0, count($arrDataSeriesValues) - 1),      // plotOrder
	$arrDataSeriesLabels,                           // plotLabel
	$arrCategorysDataSeries,                        // plotCategory
	$arrDataSeriesValues                            // plotValues
);
//	プロットエリアにチャート・データシリーズに設定
$objPlotArea2 = new PlotArea(NULL, array($objSeries2));
//	レジェンド生成(各折れ線の説明を行う)
$objLegend2 = new Legend(Legend::POSITION_TOPRIGHT, NULL, false);
//  チャート・タイトル生成
$objTitle2 = new Title('売上データ:Bar Chart:STACKED');
//	チャート生成
$objChart2 = new Chart(
	'chart2',       // name
	$objTitle2,     // title
	$objLegend2,    // legend
	$objPlotArea2,  // plotArea
	TRUE,           // plotVisibleOnly
	0,              // displayBlanksAs
	NULL,           // xAxisLabel
	NULL		    // yAxisLabel
);
//	ワークシート内のチャート位置設定
$objChart2->setTopLeftPosition('H8');        // 左上
$objChart2->setBottomRightPosition('N20');   // 右下
//	ワークシートにチャート追加
$objWorksheet->addChart($objChart2);

//=====================
//    Line Chart 
//=====================
//	チャート・データシリーズの生成
$objSeries3 = new DataSeries(
	DataSeries::TYPE_LINECHART,		// plotType
	DataSeries::GROUPING_STANDARD,	// plotGrouping
	range(0, count($arrDataSeriesValues) - 1),      // plotOrder
	$arrDataSeriesLabels,                           // plotLabel
	$arrCategorysDataSeries,                        // plotCategory
	$arrDataSeriesValues                            // plotValues
);
//	プロットエリアにチャート・データシリーズに設定
$objPlotArea3 = new PlotArea(NULL, array($objSeries3));
//	レジェンド生成(各折れ線の説明を行う)
$objLegend3 = new Legend(Legend::POSITION_TOPRIGHT, NULL, false);
//  チャート・タイトル生成
$objTitle3 = new Title('売上データ:Line Chart');
//	チャート生成
$objChart3 = new Chart(
	'chart3',       // name
	$objTitle3,     // title
	$objLegend3,    // legend
	$objPlotArea3,  // plotArea
	TRUE,           // plotVisibleOnly
	0,              // displayBlanksAs
	NULL,           // xAxisLabel
	NULL		    // yAxisLabel
);
//	ワークシート内のチャート位置設定
$objChart3->setTopLeftPosition('A21');      // 左上
$objChart3->setBottomRightPosition('G33');  // 右下
//	ワークシートにチャート追加
$objWorksheet->addChart($objChart3);

//=====================
//    Area Chart 
//=====================
//	チャート・データシリーズの生成
$objSeries4 = new DataSeries(
	DataSeries::TYPE_AREACHART,				// plotType
	DataSeries::GROUPING_PERCENT_STACKED,	// plotGrouping
	range(0, count($arrDataSeriesValues) - 1),      // plotOrder
	$arrDataSeriesLabels,                           // plotLabel
	$arrCategorysDataSeries,                        // plotCategory
	$arrDataSeriesValues                            // plotValues
);
//	プロットエリアにチャート・データシリーズに設定
$objPlotArea4 = new PlotArea(NULL, array($objSeries4));
//	レジェンド生成(各折れ線の説明を行う)
$objLegend4 = new Legend(Legend::POSITION_TOPRIGHT, NULL, false);
//  チャート・タイトル生成
$objTitle4 = new Title('売上データ:Area Chart');
//	チャート生成
$objChart4 = new Chart(
	'chart4',       // name
	$objTitle4,     // title
	$objLegend4,    // legend
	$objPlotArea4,  // plotArea
	TRUE,           // plotVisibleOnly
	0,              // displayBlanksAs
	NULL,           // xAxisLabel
	NULL		    // yAxisLabel
);
//	ワークシート内のチャート位置設定
$objChart4->setTopLeftPosition('H21');       // 左上
$objChart4->setBottomRightPosition('N33');   // 右下
//	ワークシートにチャート追加
$objWorksheet->addChart($objChart4);

// [test-g-5-1.xlsx]:Excel2007形式で保存する
$objWriter = IOFactory::createWriter($objSpreadsheet, 'Xlsx');
$objWriter->setIncludeCharts(TRUE);
$objWriter->save('test-g-5-1.xlsx');
exit();
?>

出力されたエクセルファイルを見てみると以下の様になります。
(4個のチャート上に個別のタイプのグラフが生成されています。)



■チャートの表示位置でのエラー発生!!

上記のソースを作成中に一部間違いをしまして、最後のグラフの出力位置を以下の様にしていました。

//	ワークシート内のチャート位置設定
$objChart4->setTopLeftPosition('H21');       // 左上
$objChart4->setBottomRightPosition('G33');   // 右下
//	ワークシートにチャート追加
$objWorksheet->addChart($objChart4);

このまま気が付かずに実行し「test-g-5-1.xlsx」をエクセルで開いたのですが、以下の様なエラー表示がされました。


チャート位置で「左上」が 'H21' で「右下」が 'G33' というのは明らかに指定がおかしいので、 エクセルとしてもチャートの表示ができなかったのでしょう。

皆さんもチャートの位置指定にはご注意ください。












PR

コメント

コメントを書く