01-19-2022
04:51 PM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
01-19-2022
04:51 PM
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
Or if this helped you, please, click (like)
Regards
Alan