Classe ModelRelationship - uma relação, atualmente no modelo de dados, entre duas tabelas (Excel VBA)

A classe ModelRelationship representa uma relação, atualmente no modelo de dados, entre duas tabelas. Para usar uma variável de classe ModelRelationship, ela primeiro precisa ser instanciada por exemplo

Dim mrel as ModelRelationship
Set mrel = ActiveWorkbook.Model.ModelRelationships(Index:=1)

For Each

Aqui está um exemplo de processamento dos itens ModelRelationship em uma coleção.

Dim mrel As ModelRelationship
For Each mrel In ActiveWorkbook.Model.ModelRelationships
	
Next mrel

Active

Quando true, a relação está ativa. Quando for false, essa relação estará inativa. Boolean de leitura/gravação.

ActiveWorkbook.Model.ModelRelationships(1).Active = True

Delete

Exclui a relação.

ActiveWorkbook.Model.ModelRelationships(1).Delete

ForeignKeyColumn

Contém o objeto ModelTableColumn que representa a coluna de chave estrangeira no lado muitos da relação um-para-muitos. Somente leitura.

Dim mtcForeignKeyColumn As ModelTableColumn
Set mtcForeignKeyColumn = ActiveWorkbook.Model.ModelRelationships(1).ForeignKeyColumn

ForeignKeyTable

Contém o objeto modeltable que representa a tabela no lado muitos da relação um-para-muitos. Somente leitura.

Dim mdltForeignKeyTable As ModelTable
Set mdltForeignKeyTable = ActiveWorkbook.Model.ModelRelationships(1).ForeignKeyTable

PrimaryKeyColumn

Contém o objeto ModelTableColumn que representa a coluna de chave primária na tabela do lado um da relação um-para-muitos.

Dim mtcPrimaryKeyColumn As ModelTableColumn
Set mtcPrimaryKeyColumn = ActiveWorkbook.Model.ModelRelationships(1).PrimaryKeyColumn

PrimaryKeyTable

Contém o objeto modeltable que representa a tabela no lado um da relação um-para-muitos.

Dim mdltPrimaryKeyTable As ModelTable
Set mdltPrimaryKeyTable = ActiveWorkbook.Model.ModelRelationships(1).PrimaryKeyTable