グラフのタイトルを設定する
グラフのタイトルを設定するには、下記のように記述します。
Chart ObjChart.HasTitle = true;
ChartTitle ChtTitle = ObjChart.ChartTitle;
ChtTitle.Text = "グラフのタイトル";
ChartTitle ChtTitle = ObjChart.ChartTitle;
ChtTitle.Text = "グラフのタイトル";
もし、「ObjChart.HasTitle = true;」 を記載しない場合、「このオブジェクトにはタイトルがありません」というエラーメッセージが表示されます。
【例】グラフのタイトルを設定する =ソースコード=
具体的に、グラフの作成で使ったコードにタイトルの処理を追記した例をご紹介します。
グラフのタイトル処理の箇所は赤字で記載します。
private void cmdMakeGraf_Click(object sender, EventArgs e)
{
/* コンボボックスの情報からExcelブック名を取得する */
TargetFile = cmbExcelBook.Text;
/* リストボックスの情報からExcelシート名を取得する */
if (lstExcelSheet.SelectedItems.Count == 0)
{
MessageBox.Show("書き込むシートを選択して下さい");
return;
}
TargetSheet = lstExcelSheet.SelectedItem.ToString();
/* Excelワークブック・ワークシートオブジェクトの取得 */
ExcelWB = ExcelApp.Workbooks.Item[TargetFile];
ExcelWS = (Worksheet)ExcelWB.Sheets[TargetSheet];
/* Excelチャートオブジェクトの設定 */
ChartObjects ChartObjs = (ChartObjects)ExcelWS.ChartObjects(Type.Missing);
/* チャート作成(行 = 450, 列 = 10, 幅500 高さ 350) */
ChartObject chartObj = ChartObjs.Add(450, 10, 500, 350);
Chart ObjChart = chartObj.Chart;
/* チャートのタイトル事前準備 */
ObjChart.HasTitle = true;
ChartTitle ChtTitle = ObjChart.ChartTitle;
/* チャートのタイトル・種類を設定 */
/* 縦棒 */
if (rdoColumn.Checked == true)
{
ChtTitle.Text = "縦棒";
ObjChart.ChartType = XlChartType.xlColumnStacked;
}
/* 折れ線 */
if (rdoLine.Checked == true)
{
ChtTitle.Text = "折れ線";
ObjChart.ChartType = XlChartType.xlLine;
}
/* 横棒 */
if (rdoBar.Checked == true)
{
ChtTitle.Text = "横棒";
ObjChart.ChartType = XlChartType.xlBarStacked;
}
/* データセット */
Range chartRange = ExcelWS.get_Range(ExcelWS.Cells[1, 1], ExcelWS.Cells[LineX, LineY]);
ObjChart.SetSourceData(chartRange);
}
{
/* コンボボックスの情報からExcelブック名を取得する */
TargetFile = cmbExcelBook.Text;
/* リストボックスの情報からExcelシート名を取得する */
if (lstExcelSheet.SelectedItems.Count == 0)
{
MessageBox.Show("書き込むシートを選択して下さい");
return;
}
TargetSheet = lstExcelSheet.SelectedItem.ToString();
/* Excelワークブック・ワークシートオブジェクトの取得 */
ExcelWB = ExcelApp.Workbooks.Item[TargetFile];
ExcelWS = (Worksheet)ExcelWB.Sheets[TargetSheet];
/* Excelチャートオブジェクトの設定 */
ChartObjects ChartObjs = (ChartObjects)ExcelWS.ChartObjects(Type.Missing);
/* チャート作成(行 = 450, 列 = 10, 幅500 高さ 350) */
ChartObject chartObj = ChartObjs.Add(450, 10, 500, 350);
Chart ObjChart = chartObj.Chart;
/* チャートのタイトル事前準備 */
ObjChart.HasTitle = true;
ChartTitle ChtTitle = ObjChart.ChartTitle;
/* チャートのタイトル・種類を設定 */
/* 縦棒 */
if (rdoColumn.Checked == true)
{
ChtTitle.Text = "縦棒";
ObjChart.ChartType = XlChartType.xlColumnStacked;
}
/* 折れ線 */
if (rdoLine.Checked == true)
{
ChtTitle.Text = "折れ線";
ObjChart.ChartType = XlChartType.xlLine;
}
/* 横棒 */
if (rdoBar.Checked == true)
{
ChtTitle.Text = "横棒";
ObjChart.ChartType = XlChartType.xlBarStacked;
}
/* データセット */
Range chartRange = ExcelWS.get_Range(ExcelWS.Cells[1, 1], ExcelWS.Cells[LineX, LineY]);
ObjChart.SetSourceData(chartRange);
}
【例】グラフのタイトルを設定する =出力結果=
上記出力結果は下記の通りです。
■ 縦棒
■ 折れ線
■ 横棒