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

添加 VBA 宏

Aspose.Slides 提供了 VbaProject 类,以便您创建 VBA 项目(及项目引用)并编辑现有模块。您可以使用 VbaProject 类管理嵌入演示文稿的 VBA。

  1. 创建 Presentation 类的实例。
  2. 使用 VbaProject 构造函数添加新 VBA 项目。
  3. 向 VbaProject 添加模块。
  4. 设置模块源代码。
  5. 添加对 的引用。
  6. 添加对 Microsoft Office 的引用。
  7. 将引用关联到 VBA 项目。
  8. 保存演示文稿。

以下 PHP 代码演示如何从头添加 VBA 宏到演示文稿:

  # 创建演示文稿类的实例
  $pres = new Presentation();
  try {
    # 创建新的 VBA 项目
    $pres->setVbaProject(new VbaProject());
    # 向 VBA 项目添加一个空模块
    $module = $pres->getVbaProject()->getModules()->addEmptyModule("Module");
    # 设置模块源代码
    $module->setSourceCode("Sub Test(oShape As Shape)MsgBox Test End Sub");
    # 创建对 <stdole> 的引用
    $stdoleReference = new VbaReferenceOleTypeLib("stdole", "*\\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\\Windows\\system32\\stdole2.tlb#OLE Automation");
    # 创建对 Office 的引用
    $officeReference = new VbaReferenceOleTypeLib("Office", "*\\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 项目添加引用
    $pres->getVbaProject()->getReferences()->add($stdoleReference);
    $pres->getVbaProject()->getReferences()->add($officeReference);
    # 保存演示文稿
    $pres->save("test.pptm", SaveFormat::Pptm);
  } finally {
    if (!java_is_null($pres)) {
      $pres->dispose();
    }
  }

移除 VBA 宏

通过在 Presentation 类下使用 VbaProject 属性,您可以移除 VBA 宏。

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

以下 PHP 代码演示如何移除 VBA 宏:

  # 加载包含宏的演示文稿
  $pres = new Presentation("VBA.pptm");
  try {
    # 访问 Vba 模块并将其删除
    $pres->getVbaProject()->getModules()->remove($pres->getVbaProject()->getModules()->get_Item(0));
    # 保存演示文稿
    $pres->save("test.pptm", SaveFormat::Pptm);
  } finally {
    if (!java_is_null($pres)) {
      $pres->dispose();
    }
  }

提取 VBA 宏

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

以下 PHP 代码演示如何从包含宏的演示文稿中提取 VBA 宏:

  # 加载包含宏的演示文稿
  $pres = new Presentation("VBA.pptm");
  try {
    # 检查演示文稿是否包含 VBA 项目
    if (!java_is_null($pres->getVbaProject())) {
      foreach($pres->getVbaProject()->getModules() as $module) {
        echo($module->getName());
        echo($module->getSourceCode());
      }
    }
  } finally {
    if (!java_is_null($pres)) {
      $pres->dispose();
    }
  }

检查 VBA 项目是否受密码保护

使用 VbaProject::isPasswordProtected 方法,您可以确定项目属性是否受密码保护。

  1. 创建 Presentation 类的实例并加载包含宏的演示文稿。
  2. 检查演示文稿是否包含 VBA project
  3. 检查 VBA 项目是否受密码保护以查看其属性。
$presentation = new Presentation("VBA.pptm");
try {
    if ($presentation->getVbaProject() != null) { // 检查演示文稿是否包含 VBA 项目。
        if ($presentation->getVbaProject()->isPasswordProtected()) {
            printf("The VBA Project '%s' is protected by password to view project properties.", 
                    $presentation->getVbaProject()->getName());
        }
    }
} finally {
    $presentation->dispose();
}

FAQ

将演示文稿另存为 PPTX 时宏会怎样?

宏将被移除,因为 PPTX 不支持 VBA。若要保留宏,请选择 PPTM、PPSM 或 POTM。

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

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

是否支持使用链接到 VBA 代码的 ActiveX 控件?

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