Set PreserveScrollPosition with Macro for Straight Table

[#1]

Hi,

Please can someone help me with this.

How can the Preserve Scroll Position property on a straight table be changed using VBA?

I have found this following code using the API Guide, however it only seems to work with the Table Box object and not with the Straight Table object.

set mybox = ActiveDocument.GetSheetObject("LB01")

set mbp = mybox.GetProperties

mbp.Layout.Frame.PreserveScrollPosition = true

mybox.SetProperties mbp

Thanks.

[#2 · Accepted solution]

I have worked out how to do this.

Just need to change Layout to GraphLayout!

set mybox = ActiveDocument.GetSheetObject("CH102")

  set mbp = mybox.GetProperties

  mbp.GraphLayout.Frame.PreserveScrollPosition = true

  mybox.SetProperties mbp

[m_woolf]

Try:

set mybox = ActiveDocument.GetSheetObject("CH01")

set fr = mybox.GetFrameDef

fr.PreserveScrollPosition =true

mybox.SetFrameDef fr

[#4]

Thanks, m w, your code works too.