使用 C++ 在演示文稿中管理 VBA 项目

Aspose.Slides.Vba 命名空间包含用于处理宏和 VBA 代码的类和接口。

Note

当您将包含宏的演示文稿转换为其他文件格式（PDF、HTML 等）时，Aspose.Slides 会忽略所有宏（宏不会被转入生成的文件）。

当您向演示文稿添加宏或重新保存包含宏的演示文稿时，Aspose.Slides 只会写入宏的字节数据。

Aspose.Slides 永不在演示文稿中运行宏。

Add VBA Macros

Aspose.Slides 提供了 VbaProject 类，以便您创建 VBA 项目（及项目引用）并编辑现有模块。您可以使用 IVbaProject 接口来管理嵌入演示文稿的 VBA。

创建 Presentation 类的实例。
使用 VbaProject 构造函数添加新的 VBA 项目。
向 VbaProject 添加模块。
设置模块的源代码。
添加对的引用。
添加对 Microsoft Office 的引用。
将这些引用关联到 VBA 项目。
保存演示文稿。

此 C++ 代码演示了如何从头向演示文稿添加 VBA 宏：

// 文档目录的路径。
const String outPath = u"../out/AddVBAMacros_out.pptm";

// 创建 Presentation 类的实例
SharedPtr<Presentation> presentation = MakeObject<Presentation>();
// 创建一个新的 VBA 项目
presentation->set_VbaProject(MakeObject<VbaProject>());

// 向 VBA 项目添加一个空模块
SharedPtr<IVbaModule> module = presentation->get_VbaProject()->get_Modules()->AddEmptyModule(u"Module");

// 设置模块源代码
module->set_SourceCode(u"Sub Test(oShape As Shape) MsgBox \"Test\" End Sub");

// 创建对 <stdole> 的引用
SharedPtr<VbaReferenceOleTypeLib> stdoleReference =
	MakeObject<VbaReferenceOleTypeLib>(u"stdole", u"*\\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\\Windows\\system32\\stdole2.tlb#OLE Automation");

// 创建对 Office 的引用
SharedPtr<VbaReferenceOleTypeLib> officeReference =
	MakeObject<VbaReferenceOleTypeLib>(u"Office", u"*\\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.0#0#C:\\Program Files\\Common Files\\Microsoft Shared\\OFFICE14\\MSO.DLL#Microsoft Office 14.0 Object Library");

// 向 VBA 项目添加引用
presentation->get_VbaProject()->get_References()->Add(stdoleReference);
presentation->get_VbaProject()->get_References()->Add(officeReference);

// 保存演示文稿
presentation->Save(outPath, Aspose::Slides::Export::SaveFormat::Pptm);

您可能想了解 Aspose 的 Macro Remover，这是一款免费网页应用，可用于从 PowerPoint、Excel 和 Word 文档中删除宏。

Remove VBA Macros

使用位于 Presentation 类下的 VbaProject 属性，您可以删除 VBA 宏。

创建 Presentation 类的实例并加载包含宏的演示文稿。
访问宏模块并将其删除。
保存修改后的演示文稿。

此 C++ 代码演示了如何删除 VBA 宏：

// 文档目录的路径。
const String outPath = u"../out/RemoveVBAMacros_out.pptm";
const String templatePath = u"../templates/vba.pptm";

// 加载包含宏的演示文稿
SharedPtr<Presentation> presentation = MakeObject<Presentation>(templatePath);

// 访问 Vba 模块并将其移除 
presentation->get_VbaProject()->get_Modules()->Remove(presentation->get_VbaProject()->get_Modules()->idx_get(0));

// 保存演示文稿
presentation->Save(outPath, Aspose::Slides::Export::SaveFormat::Pptm);

Extract VBA Macros

创建 Presentation 类的实例并加载包含宏的演示文稿。
检查演示文稿是否包含 VBA 项目。
遍历 VBA 项目中所有模块以查看宏。

此 C++ 代码演示了如何从包含宏的演示文稿中提取 VBA 宏：

	// 文档目录的路径。
	const String templatePath = u"../templates/VBA.pptm";

	// 加载包含宏的演示文稿
	SharedPtr<Presentation> pres = MakeObject<Presentation>(templatePath);


	if (pres->get_VbaProject() != NULL) // 检查演示文稿是否包含 VBA 项目
	{
		
		//for (SharedPtr<IVbaModule> module : pres->get_VbaProject()->get_Modules())
		for (int i = 0; i < pres->get_VbaProject()->get_Modules()->get_Count(); i++)
		{
			SharedPtr<IVbaModule> module = pres->get_VbaProject()->get_Modules()->idx_get(i);

			System::Console::WriteLine(module->get_Name());
			System::Console::WriteLine(module->get_SourceCode());
		}
	}

Check Whether a VBA Project Is Password-Protected

使用 IVbaProject::get_IsPasswordProtected 属性，您可以判断项目属性是否受密码保护。

创建 Presentation 类的实例并加载包含宏的演示文稿。
检查演示文稿是否包含 VBA project。
检查 VBA 项目是否受密码保护以查看其属性。

auto presentation = MakeObject<Presentation>(u"VBA.pptm");
    
if (presentation->get_VbaProject() != nullptr) // 检查演示文稿是否包含 VBA 项目。
{
    if (presentation->get_VbaProject()->get_IsPasswordProtected())
    {
        Console::WriteLine(u"The VBA Project '{0}' is protected by password to view project properties.", presentation->get_VbaProject()->get_Name());
    }
}
    
presentation->Dispose();

FAQ

如果将演示文稿另存为 PPTX，会发生什么？

宏会被删除，因为 PPTX 不支持 VBA。若需保留宏，请选择 PPTM、PPSM 或 POTM。

Aspose.Slides 能在演示文稿中运行宏，例如刷新数据吗？

不能。库永不执行 VBA 代码；只有在 PowerPoint 中且安全设置允许时才可能运行。

是否支持使用与 VBA 代码关联的 ActiveX 控件？

是的，您可以访问现有的 ActiveX controls，修改其属性并将其删除。这在宏与 ActiveX 交互时非常有用。

在 C++ 中创建 3D 演示文稿技术文章