ValidationRules.Add, méthode (Visio)

Article
04/07/2023

Ajoute un nouvel objet ValidationRule vide à la collection ValidationRules du document.

Syntaxe

expression. Ajouter (NameU)

Expression Variable qui représente un objet ValidationRules .

Parameters

Nom	Requis/Facultatif	Type de données	Description
NameU	Requis	String	Nom universel à attribuer à la nouvelle règle de validation.

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 = [empty]
Description = « Unknown »
FilterExpression = [empty]
Ignoré = Faux
Targettype = visRuleTargetShape
TestExpression = [empty]

Exemple

L’exemple de code suivant est basé sur le 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 nommé « Fault Tree Analysis » 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.

Partager via