Setting the ActiveStandardStyle

[CadUser46]

A bit of a strange one.  I have a userform for people to configure a new drawing.  One of the options they have is to select the Active Standard from a choice of the two company standards. 

The template drawing contains both of the standards as does the styles library but the company ISO standard is the default.  If the user selects the company ANSI standard the active standard appears correct in document settings but it produces dimensions like its still stuck on the ISO default as the template is saved.  Looking in the styles library i can see the standard says ANSI but the Available Styles and Object defaults read as if they are the ISO standard.

First question, am i setting the active standard correctly?

Dim odoc2 As Inventor.DrawingDocument
Set odoc2 = ThisApplication.ActiveDocument
    'Get reference to active standard object
Dim oActive As DrawingStandardStyle
Set oActive = odoc2.StylesManager.ActiveStandardStyle
    oActive.Name = ComboBox1.Value

Thanks

[CadUser46]

Thinking about it using this method, am i just changing the name of the one that is already active ie changing then name of ISO to ANSI?

[CadUser46 · Accepted solution]

OK, just found another thread where Rocky posted.  Looks like im doing it wrong.  Every days a school day.

http://forums.autodesk.com/t5/Autodesk-Inventor-Customization/Setting-the-active-standard-ActiveStan...

Sub ChangeStandardStyle()
   
    Dim oDoc As DrawingDocument
    Set oDoc = ThisApplication.ActiveDocument
   
    oDoc.StylesManager.ActiveStandardStyle = oDoc.StylesManager.StandardStyles("Default Standard (ISO)")
    Debug.Print oDoc.StylesManager.ActiveStandardStyle.Name
End Sub