12-07-2021
02:51 PM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
12-07-2021
02:51 PM
I am not sure why put trying to target a style that is not the default style on placing fails to work. So if you place a style as default then reference the style and change it to a new one this works.
'add a new table Dim oRevTable As RevisionTable oRevTable = oSheet.RevisionTables.Add2(oTablePt, False, True, True, "0" )'oLocation 'Get revision table oRevTable = oSheet.RevisionTables.Item(1) 'Get New Style
Dim oRevStyle As RevisionTableStyle oRevStyle = oDrawDoc.StylesManager.RevisionTableStyles.Item("B Size Revision Table (ANSI)") 'Change RevTable Style oRevTable.Style = oRevStyle
If this solved a problem, please click (accept) as solution.
Or if this helped you, please, click (like)
Regards
Alan
Or if this helped you, please, click (like)
Regards
Alan