Property that show in Percent

[Anonymous]

At example below, teaches how modify number properties, but i did not found what show in percent.

Anyone can help me?

set chart = ActiveDocument.Sheets("Main").CreateStraightTable
chart.AddDimension "ProductType"
chart.AddExpression "sum(Amount)"
set p = chart.GetProperties
set np = p.Expressions.Item(0).Item(0).Data.ExpressionVisual.NumberPresentation
np.Dec = "."
np.Fmt = "# ##0.00"
np.nDec = 2
np.Thou = " "
np.Type = 11 'fixed decimal
np.UseThou = 1
chart.SetProperties p

[disqr_rm]

What I know it that you need to calculate the percent value and then use format as follows:

np.Fmt = "# ##0.00%"