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

<?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),
	)
);

//  系列ラベルの指定
$arrDataSeriesLabels1 = array(
	new DataSeriesValues(DataSeriesValues::DATASERIES_TYPE_STRING, 'Worksheet!$B$1', NULL, 1),       //商品1
);
$arrDataSeriesLabels2 = array(
	new DataSeriesValues(DataSeriesValues::DATASERIES_TYPE_STRING, 'Worksheet!$C$1', NULL, 1),       //商品2
);
$arrDataSeriesLabels3 = array(
	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
);

//  商品1:描画データの指定
$arrDataSeriesValues1 = array(
	new DataSeriesValues(DataSeriesValues::DATASERIES_TYPE_NUMBER, 'Worksheet!$B$2:$B$6', NULL, 5),  //商品1
);
//	商品1:チャート・データシリーズの生成
$objSeries1 = new DataSeries(
	DataSeries::TYPE_BARCHART,		// plotType
	DataSeries::GROUPING_CLUSTERED,	// plotGrouping
	range(0, count($arrDataSeriesValues1) - 1),     // plotOrder
	$arrDataSeriesLabels1,                          // plotLabel
	$arrCategorysDataSeries,                        // plotCategory
	$arrDataSeriesValues1                           // plotValues
);

//  商品2:描画データの指定
$arrDataSeriesValues2 = array(
	new DataSeriesValues(DataSeriesValues::DATASERIES_TYPE_NUMBER, 'Worksheet!$C$2:$C$6', NULL, 5),  //商品2
);
//	商品2:チャート・データシリーズの生成
$objSeries2 = new DataSeries(
	DataSeries::TYPE_LINECHART,		// plotType
	DataSeries::GROUPING_STANDARD,	// plotGrouping
	range(0, count($arrDataSeriesValues2) - 1),     // plotOrder
	$arrDataSeriesLabels2,                          // plotLabel
	$arrCategorysDataSeries,                        // plotCategory
	$arrDataSeriesValues2                           // plotValues
);

//  商品3:描画データの指定
$arrDataSeriesValues3 = array(
	new DataSeriesValues(DataSeriesValues::DATASERIES_TYPE_NUMBER, 'Worksheet!$D$2:$D$6', NULL, 5),  //商品3
);
//	商品3:チャート・データシリーズの生成
$objSeries3 = new DataSeries(
	DataSeries::TYPE_AREACHART,		// plotType
	DataSeries::GROUPING_STANDARD,	// plotGrouping
	range(0, count($arrDataSeriesValues3) - 1),     // plotOrder
	$arrDataSeriesLabels3,                          // plotLabel
	$arrCategorysDataSeries,                        // plotCategory
	$arrDataSeriesValues3                           // plotValues
);

//	プロットエリアにチャート・データシリーズに設定
$objPlotArea = new PlotArea(NULL, array($objSeries1, $objSeries2, $objSeries3));
//	レジェンド生成（各折れ線の説明を行う）
$objLegend = new Legend(Legend::POSITION_TOPRIGHT, NULL, false);
//  チャート・タイトル生成
$objTitle = new Title('3種類-Chart');
//	チャート生成
$objChart = new Chart(
	'chart1',       // name
	$objTitle,      // title
	$objLegend,     // legend
	$objPlotArea,   // plotArea
	TRUE,           // plotVisibleOnly
	0,              // displayBlanksAs
	NULL,           // xAxisLabel
	NULL		    // yAxisLabel
);
//	ワークシート内のチャート位置設定
$objChart->setTopLeftPosition('A8');        // 左上
$objChart->setBottomRightPosition('G20');   // 右下

//	ワークシートにチャート追加
$objWorksheet->addChart($objChart);

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