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

Получает или задает значение ячейки. Для чтения и записи.

Синтаксис

выражения. Результат (UnitsNameOrCode)

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

Параметры

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

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

Double

Комментарии

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

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

retVal = Cell.Result (visInches)

retVal = Cell.Result (65)

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

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

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

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

Пример

В этом макрос Visual Basic для приложений Microsoft (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 и обратная связь.