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: fred.markle

You will need to get the bottom left corner and then subtract the length of the revision block. Here is a sub routine to do that. Hopefully that works for you. 

 

Private Sub Positiontable(oSheet As Sheet)

Dim oPartsTable As PartsList
Set oPartsTable = oSheet.PartsLists.Item(1)


Dim oWidthPartsTable As Double
 oWidthPartsTable = oPartsTable.RangeBox.MaxPoint.X - oPartsTable.RangeBox.MinPoint.X

Dim oHeightPartsTable As Double
oHeightPartsTable = oPartsTable.RangeBox.MaxPoint.Y - oPartsTable.RangeBox.MinPoint.Y

Set oTablePt = ThisApplication.TransientGeometry.CreatePoint2d(oSheet.Border.RangeBox.MinPoint.X + oWidthPartsTable, oSheet.TitleBlock.RangeBox.MinPoint.Y + oHeightPartsTable)

oPartsTable.Position = oTablePt
    
End Sub

 

If this solved a problem, please click (accept) as solution.‌‌‌‌
Or if this helped you, please, click (like)‌‌
Regards
Alan