Application.Version 属性 (Visio)

返回正在运行的 Microsoft Visio 实例的版本。 此为只读属性。

语法

表达式。版本

expression：表示 Application 对象的变量。

返回值

String

备注

通过使用 Application 对象的 Version 属性，可验证特定 Visio 实例的版本。 如果您的程序要求使用特定的版本，则此信息将非常有用。 将同时返回主要版本号和次要版本号。 Visio 返回的字符串为 15.0。

示例

此 Microsoft Visual Basic for Applications (VBA) 程序演示如何将 Visio 实例的版本输出到“立即”窗口中。

 
Public Sub Version_Example() 
 
 Dim vsoApplication As Visio.Application 
 Dim strVersion As String 
 Dim intDotPosition As Integer 
 Set vsoApplication = CreateObject("Visio.Application") 
 
 strVersion = vsoApplication.Version 
 intDotPosition = InStr(strVersion, ".") 
 
 Debug.Print " Major Version : "; Left(strVersion, intDotPosition - 1) 
 Debug.Print " Minor Version : "; Right(strVersion, Len(strVersion) - intDotPosition) 
 
End Sub

支持和反馈

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