Hi All,
Instead of adding the field manually. I would like to add all the fields from its respective table and create the table box. Can someone help me out to achieve this please.
sub create_chart()
set Sheet=ActiveDocument.ActiveSheet
set chart = Sheet.CreateStraightTable
chart.AddDimension "Product"
chart.AddExpression "sum(Amount)"
end sub
Thanks,
Attitude