Set rng = range("a23:a23")
rng.PasteSpecial

void exportOLEApp(int appType = TARGET_APP_MSPPT)
{
	Object ppApp, ppPres, ppSlide, ppShape;
	string strGpName, strLtcmd;
	
	ppApp = CreateObject("PowerPoint.Application");
	ppApp.Visible = true; // zunaechst verdeckt oeffnen; erst nach dem vollstaendigen
							// Einfuegen der Bilder sichtbar machen
	ppPres = ppApp.Presentations.Add(true);
	//ppPres = ppApp.Presentations.Open(template, true);
	if(OpenClipboard(NULL))
	{
		EmptyClipboard();
		CloseClipboard();
	}
	
	foreach(GraphPage gp in Project.GraphPages)
	{
		strGpName = gp.GetName();
		set_active_layer(gp.Layers());
		
		if(page_active_layer_index(gp)!=-1)
		{
			strLtcmd = "clipboard "+strGpName;
			gp.LT_execute(strLtcmd);

			ppSlide = ppPres.Slides.Add((ppPres.Slides.Count + 1),ppLayoutBlank);
			ppShape = ppSlide.Shapes.PasteSpecial();
		}
		else
			printf("Page: %s was not active!!\n", strGpName);
	}	
}

void	test_copying_multiple_graps_and_pasting_to_Excel()
{
	Object					oExcel, oworkbooks, oworkbook, oworksheet, oRange;
	GraphPage				gp;
	
	
	oExcel = CreateObject("Excel.Application");
	oExcel.Visible = true;
	
	oworkbooks = oExcel.Workbooks;
	
	oworkbook = oworkbooks.Add();
	
	oworksheet = oworkbook.ActiveSheet;
	
	int						ii = 0;
	
	foreach(gp in Project.GraphPages)
	{
		string	strName = gp.GetName();
		out_str(strName);

		BOOL	bShown = gp.Show;
		if (!bShown)
			gp.Show = TRUE;
		string	strLtcmd = "clipboard " + strName;
		gp.LT_execute(strLtcmd);
		if (!bShown)
			gp.Show = FALSE;
		
		string		strRange;
		char		chCol = 'A' + ii;
		strRange.Format("$%c$%d", chCol, ii + 1);
		oRange = oworksheet.Range(strRange);
		oRange.PasteSpecial();
		
		ii += 3;
	}
}