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

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