// test.cpp : Defines the entry point for the console application.
//

#include "stdafx.h"

#include <ole2.h>
#include <stdio.h>

#pragma warning (disable: 4146   4192   4786   4081 )
#import "C:\Program Files\Common Files\Microsoft Shared\Office10\MSO.DLL" 
#import "c:\\Program Files\\Common Files\Microsoft Shared\VBA\VBA6\VBE6EXT.olb" 
#import "c:\Program Files\Microsoft Office\Office10\MSWORD.olb" rename("ExitWindows","ExitWindowsEx")
#import "c:\Program Files\Microsoft Office\Office10\excel.exe" rename("DialogBox", "DialogBoxXL") rename("RGB", "RBGXL") \
         rename("DocumentProperties", "DocumentPropertiesXL") exclude("IFont","IPicture")


struct StartOle {
    StartOle() { CoInitialize(NULL); }
    ~StartOle() { CoUninitialize(); }
} _inst_StartOle;


int main(int argc, char* argv[])
{

    using namespace Excel;

    try {

		CLSID clsid;
		CLSIDFromProgID(L"Excel.Application", &clsid); 
		_ApplicationPtr pApp;
		pApp.CreateInstance (clsid,NULL);
		pApp ->PutVisible ( 0 ,VARIANT_TRUE);
		_WorkbookPtr   pBook  = pApp->GetWorkbooks()->Add();
		_WorksheetPtr  pSheet = pBook->Worksheets->GetItem(_variant_t((long) 1 )); 

		// шапка таблицы
		pSheet->Range["A1"]->Value2 = "Дни";
		pSheet->Range["B1"]->Value2 = "Знач.1";
		pSheet->Range["C1"]->Value2 = "Знач.2";

		// значения
		pSheet->Range["A2"]->Value2 = "ПН";
		pSheet->Range["B2"]->Value2 =  14 . 0 ;
		pSheet->Range["C2"]->Value2 =  7 . 456 ;

		pSheet->Range["A3"]->Value2 = "ВТ";
		pSheet->Range["B3"]->Value2 =  13 . 0 ;
		pSheet->Range["C3"]->Value2 =  4 . 56 ;
		
    
		_ChartPtr  pChart  = pBook->Charts->Add();
		pChart->ChartWizard((Range*) pSheet->Range["A2:C3"], (long) xl3DBar, 4L, (long)  xlColumns, 1L, 0L, 1L, "Title");
		pChart->ChartType = xl3DColumnClustered;

		//pApp->ActiveChart->SeriesCollection(_variant_t((long) 1 ))-> ?

		//pSheet->SaveAs("C:\\1.xls");
		//pBook->Close();
		//pApp->Quit();

    } catch(...) {}
	return  0 ;
}

ActiveChart.SeriesCollection(1).Name = "=""Знач.1"""
ActiveChart.SeriesCollection(2).Name = "=""Знач.2"""
ActiveChart.Location Where:=xlLocationAsObject, Name:="Лист1"

...
{	
	IDispatchPtr pDisp = pApp->ActiveChart->SeriesCollection(_variant_t((long) 1 ));
	HRESULT hr;
	DISPID dispid;
	OLECHAR* szMember = OLESTR("Name");

	hr = pDisp->GetIDsOfNames(IID_NULL, &szMember,  1 , LOCALE_USER_DEFAULT, &dispid);
	if(SUCCEEDED(hr))
	{
		VARIANT varg[ 1 ];
		varg[ 0 ].vt = VT_BSTR;
		varg[ 0 ].bstrVal = _bstr_t(OLESTR("=\"Знач. 1 \""));
		
		DISPID dispidPut = DISPID_PROPERTYPUT;	
		DISPPARAMS dp;
		dp.cArgs =  1 ;
		dp.rgvarg = varg;
		dp.rgdispidNamedArgs = &dispidPut; 
		dp.cNamedArgs =  1 ;

		hr = pDisp->Invoke(dispid, IID_NULL, LOCALE_USER_DEFAULT,DISPATCH_PROPERTYPUT,&dp, NULL, NULL, NULL);
		if (FAILED(hr)) prn_invoke_err(hr);
	}
}
...