Move a table on a drawing sheet

[ewcler]

I am working on some code that will move a custom table from one point to another.  This is what I have so far.

You need to have a drawing document with a custom table already in it.

Sub MoveTable()

    Dim oApp As Application
    Set oApp = ThisApplication
    

    Dim oDoc As DrawingDocument
    Set oDoc = oApp.ActiveDocument
    Dim osheet As Sheet
    Set osheet = oDoc.ActiveSheet
    
    Dim oTable As CustomTable
    Set oTable = osheet.CustomTables.Item(1)
    
    'This is where I want to make the move, but it doesn't work
    Call oTable.Position.TranslateBy(oApp.TransientGeometry.CreateVector2d(5, 5))
     
End Sub

[ewcler]

I sorted it out.

oPoint.Y = oPoint.Y + oCustomTable.RangeBox.MaxPoint.Y - oCustomTable.RangeBox.MinPoint.Y
oCustomTable.Position = oPoint