管理 Visio 宏启用 diagram 的 VBA 代码。

添加 VBA 模块

Aspose.Diagram 允许您使用 Aspose.Diagram 添加新的 VBA 模块和宏代码。请使用 [Diagram.VbaProject.Modules.Add()] 方法在 diagram 中添加新的 VBA 模块

下面的示例代码添加了一个新的 VBA 模块和宏代码，并以 VSDM 格式保存输出。一次，你将在Microsoft Visio中打开输出VSDM文件，点击开发人员 > Visual Basic菜单命令，您将看到一个名为“TestModule”的模块，在其中，您将看到以下宏代码。

 Sub ShowMessage()

    MsgBox "Welcome to Aspose!"

End Sub

下面是使用 VBA 模块和宏代码生成输出 VSDM 文件的示例代码。

	// For complete examples and data files, please go to https://github.com/aspose-diagram/Aspose.Diagram-for-Java
	// The path to the documents directory.
	String dataDir = Utils.getDataDir(Test.class);

	// Load a diagram
	Diagram diagram = new Diagram(dataDir + "1.vsdm");
	//Add module
	int index = diagram.getVbaProject().getModules().add(VbaModuleType.PROCEDURAL, "TestModule");
	//Get module
	com.aspose.diagram.VbaModule module = diagram.getVbaProject().getModules().get(index);
	//Set module
	module.setCodes("Attribute VB_Name = \"module2\"\r\n Sub Button1_Click()\r\n\r\n MsgBox \"Welcome to Aspose!\"\r\n\r\nEnd Sub\r\n");

	diagram.save(dataDir + "1out.vsdm", SaveFileFormat.VSDM);

您可以使用Aspose.Diagram修改VBA或宏代码。Aspose.Diagram添加了以下命名空间和类来读取和修改Visio文件中的VBA项目。

本文将向您展示如何使用 Aspose.Diagram 更改源文件 Visio 中的 VBA 或宏代码。

以下示例代码加载源文件 Visio，其中包含以下 VBA 或宏代码

 Sub Button1_Click()

    MsgBox "This is test message."

End Sub

Aspose.Diagram示例代码执行后，VBA或Macro代码会修改成这样

 Sub Button1_Click()

    MsgBox "This is Aspose.Diagram message."

End Sub

您可以下载源文件 Visio和输出 Visio 文件从给定的链接。

	// For complete examples and data files, please go to https://github.com/aspose-diagram/Aspose.Diagram-for-Java
	// The path to the documents directory.
	String dataDir = Utils.getDataDir(Test.class);

	// Load a diagram
	Diagram diagram = new Diagram(dataDir + "1.vsdm");
	//Get module
	com.aspose.diagram.VbaModule module = diagram.getVbaProject().getModules().get(2);
	//Set module
	module.setCodes("Attribute VB_Name = \"module2\"\r\n Sub Button1_Click()\r\n\r\n MsgBox \"This is Aspose.Diagram message.\"\r\n\r\nEnd Sub\r\n");

	diagram.save(dataDir + "1out.vsdm", SaveFileFormat.VSDM);