workcharts:=OLE2.GET_OBJ_PROPERTY(workbook,'CHARTS'); 
	WORKCHART := ole2.Invoke_obj(workcharts, 'Add'); 
	OLE2.SET_PROPERTY(workchart, 'NAME', 'CHART'); 


	--set chart data source. P_NAME is the name of data sheet (i.e. SUMMARY COSTS 2011-2012-2026)
	--J is the row index where data are stored (i.e. A12:D13)
	args := OLE2.CREATE_ARGLIST;
	OLE2.ADD_ARG(args, 'Sheets("' || P_NAME || '").Range("A' || (J-1) || ':D' || J || '")');
	OLE2.ADD_ARG(args, 'xl3DPieExploded');
--	OLE2.ADD_ARG(args, 'xlColumns');
	OLE2.INVOKE(workchart, 'SetSourceData', args); 
	OLE2.DESTROY_ARGLIST(args);

	OLE2.RELEASE_OBJ(workchart);
	OLE2.RELEASE_OBJ(workcharts);
	...

Sub chart()
'
' chart Macro
'

'
    Range("A12:D13").Select
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.ChartType = xl3DPieExploded
    ActiveChart.SetSourceData Source:=Range( _
        "'SUMMARY COSTS 2011-2012-2026'!$A$12:$D$13")
End Sub

	args:=OLE2.create_arglist;
	STR_FORMULA := 'A' || (J-1); --A12
	OLE2.add_arg(args, STR_FORMULA);
	STR_FORMULA := 'D' || J;     --D13
	OLE2.add_arg(args, STR_FORMULA);
	myRange:=OLE2.get_obj_property(worksheet, 'Range', args);
	OLE2.SET_PROPERTY(myRange,'selected',true);	
	OLE2.destroy_arglist(args);