The API guide should show examples, but here is some code I wrote a while ago which you are welcome to pick over. It creates a straight table with dynamic expressions based on the entries in a tablebox and sets the background color based on a numeric entry in the tablebox.
sub CH_TOTALS_Expr
' Set the expressions for the current repairs
set chart = ActiveDocument.GetSheetObject("CH_TOTALS")
set cp = chart.GetProperties
' remove all existing expressions from chart
n = cp.Expressions.Count
Do While n > 0 ' will end when no more expressions or unxepected error from removeexpression
n = chart.RemoveExpression(0)
Loop
' add expression for every repair
set tbox = ActiveDocument.GetSheetObject( "TB_HEADERS" )
For r = 1 to tbox.GetRowCount-1 ' rows numbered from 0 but skip table box header row
set cell = tbox.GetCell(r,2) ' get RBF Code
chart.AddExpression "sum(if ([RBF Code]='" & cell.Text & "', [Reqd Qty], 0))"
Next 'r
' now set the corresponding repair description as the column label and the background colour to the group number
' have to do this as a second loop as after adding an expression would otherwise need to 'GetProperties' each time
set cp = chart.GetProperties
For r = 1 to tbox.GetRowCount-1 ' rows numbered from 0 but skip table box header row
set expr = cp.Expressions.Item(r -1).Item(0).Data 'expressions numbered from 0
set cell = tbox.GetCell(r,3) ' get Repair
set ev = expr.ExpressionVisual
ev.Label.v = cell.Text
ev.ColWidth = 265
set cell = tbox.GetCell(r,0) ' get Group No
set bce = expr.AttributeExpressions.BkgColorExp
bce.Definition.v = "color(" & cell.Text & ")"
Next 'r
cp.TableProperties.StyleNumber = -1 ' set style to 'custom'
chart.SetProperties cp
ActiveDocument.Save
end sub
What happens though after your table is created and you change the background colour manually?
Regards,
Gordon
