我可以应用并执行其他文档中的代码吗？

Question

有没有两个文档，第一个文档具有将在第二个文档上执行并应用的所有代码和功能？

例如：文档1具有一个按钮和所有代码，当我按下该按钮时，它将在文档2上绘制形状。

我想知道DocumentOpened是否是合适的方法。任何帮助或技巧将不胜感激。谢谢！

PS。我的另一个问题已结案，因此我不得不重新提出一个问题...

Answer 1

与任何Office产品一样，您可以使用打开的应用程序对象来引用该应用程序的文档集合。

此外，当您执行Documents.Open函数（或新文件的.Add函数）时，它将返回有效的Document对象。然后，您可以使用该对象执行其他操作。

Visio Documents.Open Method Documentation

' open existing document
Dim viDoc as Object
Set viDoc = Documents.Open(sFilename)

或

' create new document
Dim viDoc as Object
Set viDoc = Documents.Add(sFilename)