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 padrão da nova regra de validação são os seguintes:

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

Exemplo

O código de exemplo a seguir é baseado no código fornecido por: David Parker

O exemplo de Visual Basic for Applications (VBA) a seguir mostra como usar o método Add para adicionar uma nova regra de validação chamada "UngluedConnector" a um conjunto de regras de validação existente chamado "Análise de Árvore de Falha" 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.