線や矢印を記述する

【備考】
	msoArrowheadTriangle、msoArrowheadLengthMedium、msoArrowheadWidthMedium
	これら定数に付いては、Excelのマクロ記憶を使用して頂ければ容易に知ることができます。
	
	
【サンプル・コード】

//Excelを操作するためのタイプライブラリを読みこむ(Excel2002用)
#import "C:\Program Files\Common Files\Microsoft Shared\Office10\MSO.DLL" no_namespace rename("DocumentProperties", "DocumentPropertiesXL")   
#import "C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\Vbe6ext.olb" no_namespace   
#import "C:\Program Files\Microsoft Office\Office10\EXCEL.EXE" rename("DialogBox", "DialogBoxXL") rename("RGB", "RBGXL") rename("DocumentProperties", "DocumentPropertiesXL") no_dual_interfaces


//線と矢印を記述するためのコード
void CXlslineDlg::OnButton1() 
{
	using namespace Excel;
	_ApplicationPtr pXL;

 	//Excelの起動
	pXL.CreateInstance(L"Excel.Application");
	pXL->Visible = TRUE;

	//WorkBookを追加する
	WorkbooksPtr pBooks = pXL->Workbooks;
	_WorkbookPtr pBook  = pBooks->Add((long)xlWorksheet);

	//Active sheetのオブジェクトを取得
	_WorksheetPtr pSheet = pBook->ActiveSheet;

	//Linesオブジェクトを取得
	LinesPtr pLines = pSheet->Lines();

	//デフォルトの線を記述
	pLines->Add(10,10,300,10);

	//矢印を記述
	LinePtr pLine = pLines->Add(10,100,300,100);
	pLine->ShapeRange->Line->PutEndArrowheadStyle(msoArrowheadTriangle);
	pLine->ShapeRange->Line->PutEndArrowheadLength(msoArrowheadLengthMedium);
	pLine->ShapeRange->Line->PutEndArrowheadWidth(msoArrowheadWidthMedium);


	AfxMessageBox("動作確認のために一時停止");


	//警告が出力されないようにする
	pXL->DisplayAlerts = false;

	pXL->Quit();	
}