VBA脚本获取形状之间的所有连接

Question

我在Visio中创建了一个具有与Excel文件中的数据链接的形状的图表。我需要导出该图，并作为报告来获取形状，并且还需要形状之间的连接。此外，我需要确定形状是否会抛出链接到它们的数据。

例如，形状triangle.1和形状triangle.2已连接，并链接了以下数据：

"triangle.1": ID: BO00223; Progress: 35%; Project: Project X; Name: ProductXYZ

"triangle.2": ID: GO00553; Progress: 5%; Project: Project X; Name: ProductKJH

我需要这样的列表（如果可能，在Excel中）：

SourceID    TargetID
BO00223     GO00553
...          ....

这意味着我需要获取页面上所有连接的列表，并通过链接到它的数据来识别形状。

有人可以帮我吗？