ValidationRules.Add 方法 (Visio)

将新的空 ValidationRule 对象添加到文档的 ValidationRules 集合。

语法

表达式。添加 (NameU)

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

参数

名称	必需/可选	数据类型	说明
NameU	必需	字符串	要分配给新有效性规则的通用名称。

返回值

ValidationRule

备注

如果 NameU 参数不是有效的字符串，则 Visio 将返回“参数无效”错误。

新验证规则的默认属性值如下所示：

• Category = [empty]
• Description = “Unknown”
• FilterExpression = [empty]
• 忽视 = 假
• TargetType = visRuleTargetShape
• TestExpression = [empty]

示例

以下示例代码基于 David Parker 提供的代码

以下Visual Basic for Applications (VBA) 示例演示如何使用 Add 方法将名为“UngluedConnector”的新验证规则添加到活动文档中名为“故障树分析”的现有验证规则集。

Public Sub Add_Example()

    Dim vsoValidationRule As Visio.ValidationRule
    Dim vsoValidationRuleSet As Visio.ValidationRuleSet
    Dim strValidationRuleSetNameU As String
    Dim strValidationRuleNameU As String
    
    strValidationRuleSetNameU = "Fault Tree Analysis"
    strValidationRuleNameU = "UngluedConnector"
    
    Set vsoValidationRuleSet = ActiveDocument.Validation.RuleSets(strValidationRuleSetNameU)
    Set vsoValidationRule = vsoValidationRuleSet.Rules.Add(strValidationRuleNameU)

End Sub

支持和反馈

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