Application.FormatResultEx 方法 (Visio)
根据格式图片，使用指定的缩放和格式单位将字符串或数字的格式设置为字符串。 或者，对日期或时间字符串设置字符串的语言类型和日历类型。
语法
表达式。FormatResultEx (StringOrNumber、 UnitsIn、 UnitsOut、 Format、 LangID、 CalendarID)
expression：表示 Application 对象的变量。
参数
| 名称 | 必需/可选 | 数据类型 | 说明 |
|---|---|---|---|
| StringOrNumber | 必需 | Variant | 要设置格式的字符串或数字；可以作为字符串、浮点数或整数来传递。 |
| UnitsIn | 必需 | Variant | StringOrNumber 的度量单位。 |
| UnitsOut | 必需 | Variant | 表示结果使用的度量单位。 |
| Format | 必需 | 字符串 | 结果字符串的实际外观的图片。 |
| LangID | 可选 | Long | 结果字符串要使用的语言。 |
| CalendarID | 可选 | Long | 结果字符串要使用的日历。 默认值为公历 visCalWestern。 |
返回值
String
备注
如果以字符串形式传递，StringOrNumber 可能是单元格的公式或预期公式，或者是以字符串形式表示的单元格的结果或预期结果。 FormatResultEx 方法对字符串进行计算并设置结果的格式。 由于字符串是在特定单元格公式的上下文之外计算的，因此，如果字符串包含任意单元格引用，FormatResultEx 方法将返回错误。
StringOrNumber 的可能值包括：
- 1.7
- 3
- "2.5"
- "4.1 cm"
- "12 ft - 17 in + (12 cm / SQRT(7))"
当 UnitsIn 为 visDate 时，可以将数值以 StringOrNumber 的形式传递给 DATETIME 函数。 传递的值的整数部分应表示自 1899 年 12 月 30 日以来的天数，小数部分应表示自午夜以来一天的分数。 例如，38135.50 表示 2004 年 5 月 28 日中午。
UnitsIn 和 UnitsOut 参数可以是字符串，如“inches”、“inch”、“in.”或“i”。 字符串可以用于所有受支持的 Microsoft Visio 单位，如厘米、米、英里等。 还可以使用 VisUnitCodes 中 Visio 类型库声明的任何单元常量。 关于度量单位中也包含有效单位的列表。
如果 StringOrNumber 是字符串，则 UnitsIn 指定如何解释计算结果，而且只有在结果为标量时才使用它。 例如，表达式 "4 * 5 cm" 的计算结果为 20 cm，这不是标量，因此 将忽略 UnitsIn 。 表达式 "4 * 5" 的计算结果为 20，这是一个标量，使用指定的 UnitsIn 进行解释。
UnitsOut 参数指定返回的字符串应该以哪种单位表示。 如果希望结果与计算的表达式使用相同的单位来表示，则传递“NOCAST”或 visNoCast。
Format 是指定由 FormatResultEx 方法产生的字符串的模板或图片的字符串。 有关详细信息，请参阅 FORMAT 函数。 一些可能的选项为：
#- 输出个位数，但如果它是前导或尾随 0，则不输出。0- 输出个位数，即使它是前导或尾随 0。.- 小数占位符。,- 千位分隔符。"text"或'text'- 按原样输出封闭文本。\c- 输出字符 c。
当 UnitsIn 为 visDate 时， Format 应为自定义 Microsoft Visio 扩展格式日期/时间格式之一，格式为“{{date/time format picture}}”。 可以在 Visio 的“数据格式”对话框中的“自定义格式”框中查看这些格式， (选择形状，然后在“插入”选项卡上选择“字段”。在“类别”列表中，选择“日期/时间”，然后选择“数据格式”) 。
LangID 参数是可选的。 如果没有指定值，Visio 将使用当前系统语言。 如果传递值， LangID 参数应是 Windows 用于对不同语言版本进行编码的标准 ID 之一。 例如，1033 是英语（美国）的语言 ID。 若要查看可能的语言 ID 的列表，请参阅 语言标识符常量和字符串。
CalendarID 参数应为以下值之一，这些值在 Visio 类型库中的 VisCellVals 中声明。 默认值为公历 visCalWestern。
| 常量 | 值 | Description |
|---|---|---|
| visCalWestern | 0 | 西方 |
| visCalArabicHijri | 1 | 阿拉伯回历 |
| visCalHebrewLunar | 2 | 希伯来农历 |
| visCalChineseTaiwan | 3 | 台历 |
| visCalJapaneseEmperor | 4 | 日本年号 |
| visCalThaiBuddhism | 5 | 泰国佛历 |
| visCalKoreanDanki | 6 | 朝鲜檀纪历 |
| visCalSakaEra | 7 | 萨卡人日历 |
| visCalTranslitEnglish | 8 | 英语转译 |
| visCalTranslitFrench | 9 | 法语转译 |
示例
以下示例演示如何使用 FormatResultEx 属性设置希腊文日期的格式，并将其显示为形状文本。
Public Sub FormatResultEx_Example
Dim vsoShape As Visio.Shape
Dim strDate As String
Set vsoShape = ActivePage.DrawOval (3, 5, 5, 9)
strDate = Application.FormatResultEx (37663.50, visDate, "", "{{dd MMMM yyyy}}", 1032, 0)
vsoShape.Text = strDate
End Sub
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。