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

Try this:

 

Dim oDrawingDoc As DrawingDocument
oDrawingDoc = ThisApplication.ActiveDocument

Dim oSheet As Sheet
oSheet = oDrawingDoc.ActiveSheet

Dim oWidthRevTable As Double
oWidthRevTable = 15.02 'Set you custom width table

Dim oTablePt As Point2d
oTablePt = ThisApplication.TransientGeometry.CreatePoint2d(oSheet.Border.RangeBox.MaxPoint.X - oWidthRevTable, oSheet.Border.RangeBox.MaxPoint.Y)'Add Revision table in Top Left Corner

If oSheet.RevisionTables.Count = 0 Then
    Dim oRevTable As RevisionTable
	oRevTable = oSheet.RevisionTables.Add(oTablePt)
	
	Dim oRevStyle As Style

	For Each oRevStyle In oDrawingDoc.StylesManager.RevisionTableStyles
	    If oRevStyle.Name = "ABC Rev Table" Then
	        oRevTable.Style = oRevStyle
	    End If
	Next 
Else
    MessageBox.Show("Revision Table already exist", "Autodesk Inventor")
End If
Please use the ACCEPT AS SOLUTION or KUDOS button if my Idea helped you to solve the problem.

Autodesk Inventor Professional Certified 2014