Macro not working

[anushree1]

Hi,

I am using the below macro to make all the expressions in a straight table to be right aligned

SUB AdjustAlign

set chart = ActiveDocument.getsheetobject("CH510")

Set cp =Chart.getproperties

X=3

FOR J= 0 to 9

set expr = cp.Expressions.Item(J).Item(0).Data.ExpressionVisual

'expr.Label.v= X

expr.NumAdjust = 1 'right

expr.LabelAdjust = 1 'center

X=X+3

Next

chart.SetProperties cp

END SUB

But it does not seem to work when the same is used to center align things work as expected.

Can anyone please correct the above code for right aligning the straight table expression values

[m_woolf · Accepted solution]

When I look at .NumAdjust in the API Guide, I see that 0 = left, 1 = center, and 2 = right

[anushree1]

Can you please share the guide that you are referring to I am very new to Macros so it would help me in learning

[m_woolf]

See the attachment: