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

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

Синтаксис

выражение. Result (UnitsNameOrCode)

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

Параметры

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

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

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

Примечания

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

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

retVal = Cell.Result (visInches)

retVal = Cell.Result (65)

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

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

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

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

Пример

Этот макрос 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 и обратная связь.