Revision Table Style

[Anonymous]

I am trying to update Revision tables with this code. After it runs if I click on the revision table it shows it is now "Revision Table" style, but if I change it to By Standard which is using "Revision Table" it changes and is now really using the style.  It also exhibits a very strange behavior  if I switch it back and forth between By Standard and Revision Table it moves up the sheet.

What am I missing?   Also ideally I would like it to end up as By Standard, but I haven't been able to figure out how to do that. 

Thanks for any assistance.

    Dim oDocStyles As Inventor.DrawingStylesManager
    Set oDocStyles = oDoc.StylesManager
    Dim oRevStyle As RevisionTableStyle
    Set oRevStyle = oDocStyles.RevisionTableStyles.Item("Revision Table")
    Dim oRevisionTable As RevisionTable
    Set oRevisionTable = oDoc.Sheets(1).RevisionTables(1)
    
    oRevisionTable.Style = oRevStyle
    
    
    oDoc.Update

[MechMachineMan]

Could it be that the existing one has style overrides applied to it that ARE NOT wiped when you change the style using VBA, but ARE wiped when you change it through the UI?

[Anonymous]

Thanks for the Reply Justin,

It must be something along those lines.  I forgot to mention that just before that code, I am updating the styles from the global Styles.  The style applied to the Revision table is the same name before and after the update, so I guess my setting it to that name does nothing.

As a workaround, I am setting it to a different style after the global update, and then back to the original style. 

I would still like to know how to make it so that  when you click on it it shows "By Standard"