Summary:
You can change the default properties of any new ruler objects by adding a LEAD DLL API call to L_AnnSetUnit in the AnnCreate Event.
More Information:
You may accomplish this using the DLL function calls as follows: Private Sub LEAD1_AnnCreate(ByVal hObject As stdole.OLE_HANDLE) If LEAD1.AnnGetType(hObject) = ANNOBJECT_RULER Then L_AnnSetUnit hObject, ANNUNIT_CENTIMETERS, TEXT(“cm”), 2, 0 End If End Sub
|