I'm trying to create a macro which will insert a revision table and set the anchor to the bottom left corner.

No matter what I do it inserts the revision table at the anchor on the top right corner. What gives?

<p>Option Explicit</p><p></p><p></p><p>Dim swApp As SldWorks.SldWorks</p><p>Dim swDraw As SldWorks.DrawingDoc</p><p>Dim currentsheet As SldWorks.Sheet</p><p>Dim swModel As SldWorks.ModelDoc2</p><p>Dim revTableAnno As SldWorks.RevisionTableAnnotation</p><p>Dim boolstatus As Boolean</p><p>Dim longstatus As Long, longwarnings As Long</p><p></p><p></p><p>Sub main()</p><p></p><p></p><p>Set swApp = Application.SldWorks</p><p>Set swModel = swApp.ActiveDoc</p><p>Set swDraw = swModel</p><p></p><p></p><p>Set currentsheet = swDraw.GetCurrentSheet</p><p>swDraw.ActivateSheet (currentsheet.GetName)</p><p></p><p></p><p>' Insert a revision table</p><p>Set revTableAnno = currentsheet.InsertRevisionTable2(True, 0, 0, swBOMConfigurationAnchor_BottomLeft, "C:\\Program Files\\SOLIDWORKS Corp\\SOLIDWORKS\\lang\\English\\standard revision block.sldrevtbt", swRevisionTable_CircleSymbol, True)</p><p>boolstatus = swModel.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swRevisionTableSymbolShape, 0, swRevisionTableSymbolShape_e.swRevisionTable_CircleSymbol)</p><p></p><p></p><p>End Sub</p>