Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.
A.Acheson
in reply to: c.neutschK4ZB6

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