m.loChart = m.loXLWorkbook.Charts.Add() > >With m.loChart > .ChartType = xl3DPieExploded > .Location(xlLocationAsNewSheet) > .PlotArea.Border.LineStyle = xlNone > .PlotArea.Interior.ColorIndex = xlNone > .HasTitle = .T. > .ChartTitle.Characters.Text = "Claims Settlement Breakdown" > .ApplyDataLabels(2,.F.,,,,.T.,.F.,.T.) > .SeriesCollection[1].DataLabels.AutoScaleFont = .T. > .SeriesCollection[1].DataLabels.Font.Size = oAppInfo.ChartDataLabelsFontSize > .HasLegend = .F. >EndWithFrank,