Description

Returns an object representing a collection of all relationships in the model.

Syntax

Public Function Relationships() As Relationships

Example

Dim MyModel As Model
Dim AllRs As Relationships

Set MyDiagram = DiagramManager.ActiveDiagram
Set MyModel = MyDiagram.ActiveModel
AllRs = MyModel.Relationships

See Also

  • No labels