フォント名、サイズなどの変更

//Excelを操作するためのタイプライブラリを読みこむ(Excel2000用)
#import "C:\Program Files\Microsoft Office 2000\Office\Mso9.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 2000\Office\excel9.olb" rename("DialogBox", "DialogBoxXL") rename("RGB", "RBGXL") rename("DocumentProperties", "DocumentPropertiesXL") no_dual_interfaces


//実行用のコード
void CXlsfontDlg::OnButton1() 
{
	COleVariant data;
	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);

	//Cellへデータを出力
	_WorksheetPtr pSheet = pXL->ActiveSheet;

	pSheet->Range["A1"]->Value = "xxxxx";
	pSheet->Range["A2"]->Value = "xxxxx";
	pSheet->Range["A3"]["G5"]->Value = "aaaaa";

	//Cellに書かれた文字の色を変える
	RangePtr pRange = pSheet->Range["A3"]["G5"];  //フォントを変える範囲の取得
	FontPtr pFont = pRange->Font;

	//フォント名を変更する
	data.SetString("Times New Roman",VT_BSTR);    //引数vtSrc(第２引数)は、VT_BSTR(UNICODE) または VT_BSTRT(ANSI)です。
	                                              //省略時のデフォルトは、UNICODE です。
	pFont->Name = data;                            

	//サイズを変更する
	data = (short)16;
	pFont->Size = data;                            

	//フォント・スタイルを変更する
	data = (short)1;
	pFont->Bold = data;                            //太字にする
	pFont->Strikethrough = data;                   //取り消し線を引く
	pFont->Italic = data;                          //斜体にする
	pFont->Underline = data;                       //下線を引く

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

	pXL->Quit();		
}