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

Question

有没有办法有两个文档，其中第一个文档具有将在第二个文档上执行和应用的所有代码和函数？

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

我想知道文档打开是否是合适的方法。任何帮助或提示将不胜感激。谢谢！

附言。我的另一个问题已经关闭，所以我不得不做一个新的......

Answer 1

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

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

Visio 文档。打开方法文档

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

或

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