Свойство Cell.Result (Visio)

Статья
04/07/2023

Возвращает или задает значение ячейки. Для чтения и записи.

Синтаксис

expression. Result (UnitsNameOrCode)

Выражение Переменная, представляющая объект Cell .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
UnitsNameOrCode	Обязательный	Variant	Единицы измерения, используемые при получении или задании значения ячейки.

Возвращаемое значение

Двойное с плавающей точкой

Замечания

Используйте свойство Result , чтобы задать значение незащищенной ячейки. Если формула ячейки защищена функцией GUARD, формула не изменяется и возникает ошибка. Если ячейка содержит только текстовую строку, возвращается ноль (0). Если строка недопустима, возникает ошибка.

Вы можете указать UnitsNameOrCode как целое число или строковое значение. Например, следующие инструкции задают значение UnitsNameOrCode в дюймах.

Retval = Cell.Result (visInches)

Retval = Cell.Result (65)

Retval = Cell.Result ("in"), где "in" также может быть любой из альтернативных строк, представляющих дюймы, например "inch", "in." или "intCounter".

Полный список допустимых строк единиц измерения вместе с соответствующими константами службы автоматизации (целыми значениями) см. в разделе Сведения о единицах измерения.

Константы автоматизации для представления единиц объявляются библиотекой типов Visio в элементе VisUnitCodes.

Чтобы указать внутренние единицы, передайте строку нулевой длины (""). Внутренние единицы измерения — это дюймы для расстояния и радианы для углов. Чтобы указать неявные единицы, необходимо использовать свойство Formula .

Пример

В этом макросе Microsoft Visual Basic для приложений (VBA) показано, как использовать свойство Result.

 
Public Sub Result_Example() 
 
 Dim vsoShape As Visio.Shape 
 Dim vsoCell As Visio.Cell 
 Dim intLocalCenterX As Double 
 
 'Draw a rectangle. 
 Set vsoShape = ActivePage.DrawRectangle(1, 5, 5, 1) 
 
 Set vsoCell = vsoShape.Cells("LocPinX") 
 intLocalCenterX = vsoCell.Result("cm") 
 Debug.Print intLocalCenterX 
 
 'You can also use the constants defined by the Visio type library. 
 intLocalCenterX = vsoCell.Result(visInches) 
 Debug.Print intLocalCenterX 
 
End Sub

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через