Méthode ValidationRules.Add (Visio)

Ajoute un nouvel objet ValideSi vide à la collection ValideRègles du document.

Syntaxe

expression. Ajouter (NameU)

expression Variable qui représente un objet ValideRègles .

Paramètres

Valeur renvoyée

ValidationRule

Remarques

Si le paramètre NameU n’est pas une chaîne valide, Visio renvoie une erreur Paramètre non valide.

Les valeurs de propriété par défaut de la nouvelle règle de validation sont les suivantes :

• Category = [vide]
• Description = « Inconnu »
• FilterExpression = [vide]
• Ignoré = Faux
• Type = ciblevisRuleTargetShape
• TestExpression = [vide]

Exemple

L’exemple de code suivant est basé sur du code fourni par : David Parker

L’exemple Visual Basic pour Applications (VBA) suivant montre comment utiliser la méthode Add pour ajouter une nouvelle règle de validation nommée « UngluedConnector » à un ensemble de règles de validation existant intitulé « Analyse de l’arbre de défaillance » dans le document actif.

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

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.