10-27-2016
01:12 PM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
10-27-2016
01:12 PM
Hi --
The following rule will put the revision table into the upper-right corner of the active sheet. Is that enough to solve your problem? Let me know if you need more details. Note there are some assumptions (table name, use of X-coord, negative offset).
Also, I am not sure about the best way to trigger it. You can certainly run it manually.
SyntaxEditor Code Snippet
Dim oTG As TransientGeometry = ThisApplication.TransientGeometry Dim sht As Sheet = ActiveSheet.Sheet tableName = "Revision History" Dim revTab As RevisionTable = sht.RevisionTables.Item(tableName) Dim rbox As Box2D rbox = revTab.RangeBox tabWidth = rbox.maxPoint.x - rbox.minPoint.x Dim brdr As Border brdr = sht.Border Dim newPos as Point2d = brdr.rangebox.maxPoint.Copy Dim offset As Vector2d = oTG.CreateVector2D(-tabWidth, 0) newPos.TranslateBy(offset) revTab.position = newPos

Jon Balgley