通过

ApplicationSettings.FreeformDrawingPrecision 属性 (Visio)

  • 项目

确定当“自由绘制”工具在绘制直线时（切换到绘制样条之前）所允许的误差范围。 读/写。

语法

表达式。FreeformDrawingPrecision

表达 一个代表 ApplicationSettings 对象的变量。

返回值

Long

备注

设置 FreeformDrawingPrecision 属性等效于在“Visio 选项”对话框中的“高级”选项卡上设置“精度”选项， (单击“文件”选项卡，然后单击“选项”) 。

FreeformDrawingPrecision 属性的可能值的范围为从 0（“紧密”）到 10（“稀疏”）。 默认值为 5。

示例

以下 Microsoft Visual Basic for Applications (VBA) 宏显示如何使用 FreeformDrawingPrecision 属性在“立即”窗口中打印当前自由绘图的精度设置。 它还演示如何从 Visio Application 对象获取 ApplicationSettings 对象。

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

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。