ドキュメントの ValidationRules コレクションに、新しい空の ValidationRule オブジェクトを追加します。
構文
式。Add (NameU)
式ValidationRules オブジェクトを表す変数。
パラメーター
| 名前 | 必須 / オプション | データ型 | 説明 |
|---|---|---|---|
| NameU | 必須 | String | 新しい検証ルールに割り当てる汎用名。 |
戻り値
ValidationRule
注釈
NameU パラメーターが有効な文字列でない場合は、"無効なパラメーターです" というエラーが返されます。
新しい入力規則の既定のプロパティ値は以下のとおりです。
- Category = [empty]
- Description = "Unknown"
- FilterExpression = [empty]
- 無視されました = False
- TargetType = visRuleTargetShape
- TestExpression = [empty]
例
次のサンプル コードは、David Parker から提供されたコードに基づいています。
次の Visual Basic for Applications (VBA) の例は、Add メソッドを使用して、アクティブなドキュメント内の "Fault Tree Analysis" という名前の既存の入力規則セットに "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 のサポートおよびフィードバックを参照してください。