//////////////////////////////////////////////////////// Below is the Sample Code which will create a straight table and disable's the first expression//////////////////////////
Set chart=Activedocument.activesheet.createStraightTable
Chart.AddDimension "Customer'
Chart.AddDimension "ProductType"
Chart.AddExpression "Sum(Amount)"
Chart.AddExpression "Count(Customer)'
Set Cp=Chart.GetProperties
Set Expr=Cp.Expressions.item(0).Item(0).Data.ExpressionData