Secondary Axis and Dimension with own Expression

[Anonymous]

Hi,

I am currently, using this macro to give the user a choice of enabling the secondary axis, however it is not working:

sub EnableSecondary

          set chart = ActiveDocument.GetSheetObject("CH04")

          set cp = chart.GetProperties

          cp.Expressions.Item(0).Item(0).Data.AxisData.AxisPosition = 3

          chart.SetProperties cp

end sub

I have no clue why this is not working.

AND

Is there a way of having a bar graph, where you can plot:

Dimension1 --> EffectiveDate

Dimension2 --> Expression1

Dimension3 --> Expression2

Kind Regards,

Abdur Razak