通过

Application.ConvertResult 方法 (Visio)

  • 项目

将字符串或数字转换为以不同度量单位表示的等效数字。

语法

表达式。ConvertResult (StringOrNumber、 UnitsIn、 UnitsOut)

expression：表示 Application 对象的变量。

参数

名称 必需/可选 数据类型 说明
StringOrNumber 必需 Variant 要转换的字符串或数字；可以是字符串、浮点数或整数。
UnitsIn 必需 Variant StringOrNumber 的度量单位。
UnitsOut 必需 Variant 表示结果使用的度量单位。

返回值

Double

备注

如果以字符串形式传递，StringOrNumber 可能是单元格的公式或预期公式，或者是以字符串形式表示的单元格的结果或预期结果。 ConvertResult 方法对字符串进行计算并将结果转换成由 UnitsOut 指定的单位。 如果字符串包含任何单元格引用，则 ConvertResult 方法返回一个错误。

StringOrNumber 的可能值包括：

  • 1.7
  • 3
  • "2.5"
  • "4.1 cm"
  • "12 ft - 17 in + (12 cm / SQRT(7))"

UnitsIn 和 UnitsOut 参数可以是字符串，如“inches”、“inch”、“in.”或“i”。 字符串可以用于所有受支持的 Microsoft Office Visio 单位，如厘米、米、英里等。 也可以使用由 Visio 类型库在 VisUnitCodes 中声明的任意单位常量。 关于度量单位中还列出了有效 单位的列表。

如果 StringOrNumber 是浮点数或整数，则 UnitsIn 声明 ConvertResult 方法应该将数字解释为哪种度量单位。 传递 "" 将指示 Visio 内部单位。

如果 StringOrNumber 是字符串，则 UnitsIn 指定如何解释计算结果，而且只有在结果为标量时才使用它。 例如，表达式“4 * 5 cm”的计算结果为 20 cm，结果不是标量，因此忽略 UnitsIn。 表达式“4 * 5”的计算结果为 20，这是一个标量，并使用指定的 UnitsIn 进行解释。

UnitsOut 参数指定应以哪种单位来表示返回的数字。 如果希望结果与计算的表达式使用相同的单位来表示，则传递“NOCAST”或 visNoCast。

指定字符串的示例：

Debug.Print vsoApplication.ConvertResult("0.5 * 2", "ft", "ft") >>> 1.0 
Debug.Print vsoApplication.ConvertResult("0.5 * 2", "ft", "in") >>> 12.0 
Debug.Print vsoApplication.ConvertResult("1 cm", "ft", "in") >>> 0.39 
Debug.Print vsoApplication.ConvertResult("1 cm", "ft", "NOCAST") >>> 1.0 
Debug.Print vsoApplication.ConvertResult("1 cm", "ft", "") >>> 0.39 
Debug.Print vsoApplication.ConvertResult("1 cm", "ft", "bz") >>> exception: Bad measurement unit.

指定数字的示例：

 
Debug.Print vsoApplication.ConvertResult(1, "ft", "ft") >>> 1 
Debug.Print vsoApplication.ConvertResult(1, "ft", "in") >>> 12 
Debug.Print vsoApplication.ConvertResult(1.0, "in", "ft") >>> 8.33333333333333E-02 
Debug.Print vsoApplication.ConvertResult(1.0, visFeet, "") >>> 12 
Debug.Print vsoApplication.ConvertResult(1, "bz", "in") >>> exception: Bad measurement unit.

示例

以下宏显示如何使用 ConvertResult 方法分别以厘米、英尺、码和英里为单位报告两个形状之间的距离。 要运行此宏，必须在页面上选中两个形状。

Sub ConvertResult_Example() 
 
 Dim vsoApplication As Visio.Application 
 Dim vsoWindow As Visio.Window 
 Dim vsoSelection As Visio.Selection 
 Dim vsoShape1 As Visio.Shape 
 Dim vsoShape2 As Visio.Shape 
 
 Dim dblPinX1 As Double 
 Dim dblPinY1 As Double 
 Dim dblPinX2 As Double 
 Dim dblPinY2 As Double 
 Dim dblPinX1in As Double 
 Dim dblPinY1in As Double 
 Dim dblPinX2in As Double 
 Dim dblPinY2in As Double 
 Dim lngCount As Long 
 Dim dblDistance As Double 
 Dim dblDistanceX As Double 
 Dim dblDistanceY As Double 
 Dim dblResult(4) As Double 
 Dim strUnit As String 
 Set vsoApplication = Visio.Application 
 Set vsoWindow = vsoApplication.ActiveWindow 
 
 'Drawing page must be active window 
 If vsoWindow.Type = 1 Then 
 Set vsoSelection = vsoWindow.Selection 
 lngCount = vsoSelection.Count 
 
 'Exactly two shapes should be selected 
 If lngCount <> 2 Then 
 MsgBox "A total of " & lngCount & " shapes are " _ 
 & "selected. Please select two shapes and try " _ 
 & "again", 0 
 Else 
 Set vsoShape1 = vsoSelection.Item(1) 
 Set vsoShape2 = vsoSelection.Item(2) 
 
 'Pass the Visio Automation constant for inches (visInches, which is defined as 65) to the Result method to force units to inches 
 dblPinX1in = vsoShape1.Cells("PinX").Result(65) 
 dblPinY1in = vsoShape1.Cells("PinY").Result(65) 
 dblPinX2in = vsoShape2.Cells("PinX").Result(65) 
 dblPinY2in = vsoShape2.Cells("PinY").Result(65) 
 dblDistance = Sqr((dblPinX2in - dblPinX1in) ^ 2 + _ 
 (dblPinY2in - dblPinY1in) ^ 2) 
 
 'Convert distances from inches to centimeters, feet, yards, and miles 
 dblResult(1) = vsoApplication.ConvertResult(dblDistance, "in", "cm") 
 dblResult(2) = vsoApplication.ConvertResult(dblDistance, "in", "ft") 
 dblResult(3) = vsoApplication.ConvertResult(dblDistance, "in", "yd") 
 dblResult(4) = vsoApplication.ConvertResult(dblDistance, "in", "mi") 
 
 'Display results 
 MsgBox dblResult(1) & " centimeters; " & dblResult(2) & " feet; " & _ 
 dblResult(3) & " ;yards; " & dblResult(4) & " miles ", 0 
 
 End If 
 
 Else 
 MsgBox "The drawing page must be active.", 0 
 
 End If 
 
End Sub

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。