Свойство Application.Version (Visio)
Возвращает версию запущенного экземпляра Microsoft Visio. Только для чтения.
Синтаксис
expression. Версия
выражение: переменная, представляющая объект Application.
Возвращаемое значение
Строка
Замечания
Используйте свойство Version объекта Application для проверки версии конкретного экземпляра Visio. Эта информация полезна, если вашей программе требуется определенная версия. Возвращаются основные и дополнительные номера версий. Строка, возвращаемая Visio, — 15.0.
Пример
В этой программе Microsoft Visual Basic для приложений (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 и обратная связь.