Método ValidationRules.Add (Visio)

Adiciona um novo objeto ValidationRule vazio à coleção ValidationRules do documento.

Sintaxe

expressão. Adicionar (NameU)

expressão Uma variável que representa um objeto ValidationRules .

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
NameU	Obrigatório	String	O nome universal a ser atribuído à nova regra de validação.

Valor de retorno

ValidationRule

Comentários

Se o parâmetro NameU não for uma cadeia de caracteres válida, o Visio retornará um erro de parâmetro inválido.

Os valores de propriedade predefinidos da nova regra de validação são os seguintes:

• Categoria = [vazio]
• Descrição = "Desconhecido"
• FilterExpression = [vazio]
• Ignorado = Falso
• TargetType = visRuleTargetShape
• TestExpression = [vazio]

Exemplo

O seguinte código de exemplo baseia-se no código fornecido por: David Parker

O exemplo de Visual Basic for Applications (VBA) seguinte mostra como utilizar o método Adicionar para adicionar uma nova regra de validação denominada "UngluedConnector" a um conjunto de regras de validação existente denominado "Análise de Árvore de Falhas" no documento ativo.

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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.