Visio) (Cell.Result 属性

获取或设置单元格的值。 读/写。

语法

表达式。结果 (UnitsNameOrCode)

表达 一个代表 Cell 对象的变量。

参数

返回值

Double

备注

使用 Result 属性设置未受保护的单元格的值。 如果单元格的公式受 GUARD 函数的保护，则该公式不会更改并且会生成一个错误。 如果单元格只包含一个文本字符串，则返回零 (0)。 如果该字符串无效，将生成一个错误。

您可以将 UnitsNameOrCode 指定为整数或字符串值。 例如，下列语句全部将 UnitsNameOrCode 设置为英寸。

retVal = Cell.Result (visInches)

retVal = Cell.Result (65)

retVal = Cell.Result (“in”) 其中“in”也可以是表示英寸的任何备用字符串，例如“英寸”、“in.”或“intCounter”。

有关有效单位字符串以及对应的自动化常量（整型值）的完整列表，请参阅关于度量单位。

用于表示单元的自动化常量由成员 VisUnitCodes 中的 Visio 类型库声明。

要指定内部单位，请传递零长度字符串 ("")。 内部单位以英寸作为距离单位，以弧度作为角度单位。 要指定隐式单位，必须使用 Formula 属性。

示例

以下 Microsoft Visual Basic for Applications (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 支持和反馈，获取有关如何接收支持和提供反馈的指南。