ApplicationSettings.FreeformDrawingPrecision property (Visio)
Determines the margin of error allowed when the Freeform tool is drawing a straight line before it switches to drawing a spline. Read/write.
Syntax
expression.FreeformDrawingPrecision
expression A variable that represents an ApplicationSettings object.
Return value
Long
Remarks
Setting the FreeformDrawingPrecision property is equivalent to setting the Precision option on the Advanced tab in the Visio Options dialog box (click the File tab, and then click Options).
Possible values for the FreeformDrawingPrecision property range from 0 (Tight) to 10 (Loose). The default is 5.
Example
The following Microsoft Visual Basic for Applications (VBA) macro shows how to use the FreeformDrawingPrecision property to print the current freeform drawing precision setting in the Immediate window. It also shows how to get an ApplicationSettings object from the Visio Application object.
Public Sub FreeformDrawingPrecision_Example()
Dim vsoApplicationSettings As Visio.ApplicationSettings
Dim lngPrecisionSetting As Long
Set vsoApplicationSettings = Visio.Application.Settings
lngPrecisionSetting = vsoApplicationSettings.FreeformDrawingPrecision
Debug.Print lngPrecisionSetting
End Sub
Support and feedback
Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.