#include xlconstants.h Local oExcel as "Excel.Application" oExcel = CreateObject("Excel.Application") oExcel.Workbooks.Add() oExcel.Visible= .T. oExcel.ActiveWorkBook.Worksheets(2).Name = "Summary Source" With oExcel.ActiveWorkbook.ActiveSheet .Range("A1").FormulaR1C1 = "Prod1" .Range("B1").FormulaR1C1 = "Amount" .Range("C1").FormulaR1C1 = "Code" .Range("A2").FormulaR1C1 = "111" .Range("A3").FormulaR1C1 = "222" .Range("A4").FormulaR1C1 = "333" .Range("B2").FormulaR1C1 = "11" .Range("B3").FormulaR1C1 = "22" .Range("B4").FormulaR1C1 = "33" .Range("C2").FormulaR1C1 = "1" .Range("C3").FormulaR1C1 = "2" .Range("C4").FormulaR1C1 = "3" .Range("A1:C4").Select .Range("C4").Activate Endwith with oExcel.ActiveWorkBook.Worksheets("Summary Source") .ChartObjects.Add( ; oExcel.CentimetersToPoints( 3 ), ; oExcel.CentimetersToPoints( 2 ), ; oExcel.CentimetersToPoints( 11 ), ; oExcel.CentimetersToPoints( 11 )) With .ChartObjects(1).Chart .ChartType = xlBarStacked .SetSourceData( oExcel.ActiveWorkbook.Sheets('Sheet1').Range("A1:C4"), xlColumns) .HasTitle = .T. .ChartTitle.Characters.Text = "Deneme" .Axes(xlCategory, xlPrimary).HasTitle = .T. .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "XXXX" .Axes(xlValue, xlPrimary).HasTitle = .T. .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Merhaba" EndWith endwithCetin
>>#include xlconstants.h >>Local oExcel as "Excel.Application" >>oExcel = CreateObject("Excel.Application") >>oExcel.Workbooks.Add() >>oExcel.Visible= .T. >>oExcel.ActiveWorkbook.Worksheets(2).Name = "Summary Source" >>With oExcel.ActiveWorkbook.ActiveSheet >> .Range("A1").FormulaR1C1 = "Prod1" >> .Range("B1").FormulaR1C1 = "Amount" >> .Range("C1").FormulaR1C1 = "Code" >> .Range("A2").FormulaR1C1 = "111" >> .Range("A3").FormulaR1C1 = "222" >> .Range("A4").FormulaR1C1 = "333" >> .Range("B2").FormulaR1C1 = "11" >> .Range("B3").FormulaR1C1 = "22" >> .Range("B4").FormulaR1C1 = "33" >> .Range("C2").FormulaR1C1 = "1" >> .Range("C3").FormulaR1C1 = "2" >> .Range("C4").FormulaR1C1 = "3" >> .Range("A1:C4").Select >> .Range("C4").Activate >> .ChartObjects.Add( ; >> oExcel.CentimetersToPoints( 3 ), ; >> oExcel.CentimetersToPoints( 2 ), ; >> oExcel.CentimetersToPoints( 11 ), ; >>oExcel.CentimetersToPoints( 11 )) >> With .ChartObjects(1).Chart >> .ChartType = xlBarStacked >> .SetSourceData( oExcel.ActiveWorkbook.ActiveSheet.Range("A1:C4"), xlColumns) >> .Location( xlLocationAsObject, "Summary Source" ) >> Endwith >>Endwith >>Cetin