VB Code help with Custom Table Text Style

[Anonymous]

I am looking for assitance with the VB code to change the text style within a custom table when it is created from a VB standalone program.  I am using Inventor 2013 and VB 2010 Express.

I have a customtable that is created within a .idw, and I would like to have the data cells set to "Table_Cells" style that I have created.  I cannot find anything in the help file with a sample code to build off.

I figure it's got to be something with oCustomTable.DataTextStyle but beyond that I am lost.

This is what I have, and VB is kicking it back in my face.

Dim oTextStyle As TextStyle
oTextStyle = oCustomTable.DataTextStyle.StyleType("Table_Cells")

 Error    2    'Public ReadOnly Property StyleType As Inventor.StyleTypeEnum' has no parameters and its return type cannot be indexed.

[Anonymous]

This is what I'm trying to set (forgot to attach the picture)

[barbara.han · Accepted solution]

You can refer to this:

Sub test()

Dim doc As DrawingDocument

Set doc = ThisApplication.ActiveDocument

doc.ActiveSheet.CustomTables.Item(1).DataTextStyle = doc.StylesManager.TextStyles.Item("Table_Cell")

End Sub

DataTextStyle is writable property. You can't change DataTextStyle.StyleType because it's read-only.

[Anonymous]

Thank you for the response, that worked perfect!