通过

Application.FormatResult 方法 (Visio)

  • 项目

根据格式图片，将字符串或数字的格式设置为字符串。 使用指定的缩放和格式单位。

语法

表达式。FormatResult (StringOrNumber、 UnitsIn、 UnitsOut、 Format)

expression：表示 Application 对象的变量。

参数

名称 必需/可选 数据类型 说明
StringOrNumber 必需 Variant 要设置格式的字符串或数字；可以作为字符串、浮点数或整数来传递。
UnitsIn 必需 Variant StringOrNumber 的度量单位。
UnitsOut 必需 Variant 表示结果使用的度量单位。
Format 必需 字符串 结果字符串的实际外观的图片。

返回值

String

备注

如果以字符串形式传递，StringOrNumber 可能是单元格的公式或预期公式，或者是以字符串形式表示的单元格的结果或预期结果。 FormatResult 方法对字符串进行计算并设置结果的格式。 由于字符串是在特定单元格公式的上下文之外计算的，因此，如果字符串包含任何单元格引用，FormatResult 方法将返回错误。

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 单位，如厘米、米、英里等。 还可以使用 VisUnitCodes 中 Visio 类型库声明的任何单元常量。 关于度量单位中也包含有效单位的列表。

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

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

Format 是指定由 FormatResult 方法产生的字符串的模板或图片的字符串。 有关详细信息，请参阅 FORMAT 函数。 一些可能的选项为：

  • # - 输出个位数，但如果它是前导或尾随 0，则不输出。

  • 0 - 输出个位数，即使它是前导或尾随 0。

  • . - 小数占位符。

  • , - 千位分隔符。

  • "text" 或 'text' - 按原样输出封闭文本。

  • \c - 输出字符 c。

示例

其中指定了字符串。

' Prints 1.00 
Debug.Print Application.FormatResult("0.5 * 2", "ft", "ft", "#.00 u") 
 
' Prints 12.00 in. 
Debug.Print Application.FormatResult("0.5 * 2", "ft", "in", "#.00 u") 
 
' Prints .39 in. 
Debug.Print Application.FormatResult("1 cm", "ft", "in", "#.00 u") 
 
' Prints 1.00 cm. 
Debug.Print Application.FormatResult("1 cm", "ft", "NOCAST", "#.00 u") 
 
' Prints 0.39 
Debug.Print Application.FormatResult("1 cm", "ft", "", "0.00 u") 
 
' Prints 1858.06 sq. cm. 
Debug.Print Application.FormatResult("1 sq. ft. * 2", "in^2", "cm^2", "0.00 u") 
 
' Throws an exception because of bad measurement unit ("bz") 
Debug.Print Application.FormatResult("1 cm", "ft", "bz", "#.00 u")

其中指定了数字。

' Prints 1.00 
Debug.Print Application.FormatResult(1, "ft", "ft", "#.00 u") 
 
' Prints 12.00 in. 
Debug.Print Application.FormatResult(1, "ft", "in", "#.00 u") 
 
' Prints .08 ft. 
Debug.Print Application.FormatResult(1.0, "in", "ft", "#.00 u") 
 
' Prints 12.00 
Debug.Print Application.FormatResult(1.0, visFeet, "", "#.00 u") 
 
' Throws an exception because of bad measurement unit ("bz") 
Debug.Print Application.FormatResult(1, "bz", "in", "#.00 u")

下面的宏演示如何使用 FormatResult 方法将厘米值转换为英寸值并在消息框中显示结果。

 
Public Sub FormatResult_Example() 
 
 Dim strOldValue As String 
 Dim strNewValue As String 
 
 'Set old value. 
 strOldValue = "1 cm" 
 
 'Format value. 
 strNewValue = Application.FormatResult _ 
 (strOldValue, "ft", "in", "#.00 u") 
 
 'Display new value. 
 MsgBox (strNewValue) 
 
End Sub

支持和反馈

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