VBA-Projekte in Präsentationen mit C++
Der Aspose.Slides.Vba Namespace enthält Klassen und Schnittstellen zur Arbeit mit Makros und VBA‑Code.
Note
Wenn Sie eine Präsentation, die Makros enthält, in ein anderes Dateiformat (PDF, HTML usw.) konvertieren, ignoriert Aspose.Slides alle Makros (Makros werden nicht in die resultierende Datei übernommen).
Wenn Sie einer Präsentation Makros hinzufügen oder eine Präsentation, die Makros enthält, erneut speichern, schreibt Aspose.Slides einfach die Bytes der Makros.
Aspose.Slides führt niemals die Makros in einer Präsentation aus.
VBA‑Makros hinzufügen
Aspose.Slides stellt die Klasse VbaProject zur Verfügung, mit der Sie VBA‑Projekte (und Projektverweise) erstellen und vorhandene Module bearbeiten können. Sie können das Interface IVbaProject verwenden, um in einer Präsentation eingebettetes VBA zu verwalten.
- Erstellen Sie eine Instanz der Klasse Presentation.
- Verwenden Sie den Konstruktor von VbaProject, um ein neues VBA‑Projekt hinzuzufügen.
- Fügen Sie dem VbaProject ein Modul hinzu.
- Legen Sie den Quellcode des Moduls fest.
- Fügen Sie Verweise zu
hinzu. - Fügen Sie Verweise zu Microsoft Office hinzu.
- Ordnen Sie die Verweise dem VBA‑Projekt zu.
- Speichern Sie die Präsentation.
Dieser C++‑Code zeigt Ihnen, wie Sie ein VBA‑Makro von Grund auf zu einer Präsentation hinzufügen:
// Der Pfad zum Dokumentenverzeichnis.
const String outPath = u"../out/AddVBAMacros_out.pptm";
// Erstellt eine Instanz der Präsentationsklasse
SharedPtr<Presentation> presentation = MakeObject<Presentation>();
// Erstellt ein neues VBA-Projekt
presentation->set_VbaProject(MakeObject<VbaProject>());
// Fügt ein leeres Modul zum VBA-Projekt hinzu
SharedPtr<IVbaModule> module = presentation->get_VbaProject()->get_Modules()->AddEmptyModule(u"Module");
// Setzt den Quellcode des Moduls
module->set_SourceCode(u"Sub Test(oShape As Shape) MsgBox \"Test\" End Sub");
// Erstellt einen Verweis auf <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");
// Erstellt einen Verweis auf 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");
// Fügt Verweise zum VBA-Projekt hinzu
presentation->get_VbaProject()->get_References()->Add(stdoleReference);
presentation->get_VbaProject()->get_References()->Add(officeReference);
// Speichert die Präsentation
presentation->Save(outPath, Aspose::Slides::Export::SaveFormat::Pptm);
VBA‑Makros entfernen
Mit der Eigenschaft VbaProject der Klasse Presentation können Sie ein VBA‑Makro entfernen.
- Erstellen Sie eine Instanz der Klasse Presentation und laden Sie die Präsentation, die das Makro enthält.
- Greifen Sie auf das Makromodul zu und entfernen Sie es.
- Speichern Sie die geänderte Präsentation.
Dieser C++‑Code zeigt Ihnen, wie Sie ein VBA‑Makro entfernen:
// Der Pfad zum Dokumentenverzeichnis.
const String outPath = u"../out/RemoveVBAMacros_out.pptm";
const String templatePath = u"../templates/vba.pptm";
// Lädt die Präsentation, die das Makro enthält
SharedPtr<Presentation> presentation = MakeObject<Presentation>(templatePath);
// Greift auf das Vba-Modul zu und entfernt es
presentation->get_VbaProject()->get_Modules()->Remove(presentation->get_VbaProject()->get_Modules()->idx_get(0));
// Speichert die Präsentation
presentation->Save(outPath, Aspose::Slides::Export::SaveFormat::Pptm);
VBA‑Makros extrahieren
- Erstellen Sie eine Instanz der Klasse Presentation und laden Sie die Präsentation, die das Makro enthält.
- Prüfen Sie, ob die Präsentation ein VBA‑Projekt enthält.
- Durchlaufen Sie alle im VBA‑Projekt enthaltenen Module, um die Makros anzuzeigen.
Dieser C++‑Code zeigt Ihnen, wie Sie VBA‑Makros aus einer Präsentation, die Makros enthält, extrahieren:
// Der Pfad zum Dokumentenverzeichnis.
const String templatePath = u"../templates/VBA.pptm";
// Lädt die Präsentation, die das Makro enthält
SharedPtr<Presentation> pres = MakeObject<Presentation>(templatePath);
if (pres->get_VbaProject() != NULL) // Prüft, ob die Präsentation ein VBA-Projekt enthält
{
//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());
}
}
Prüfen, ob ein VBA‑Projekt passwortgeschützt ist
Mit der Eigenschaft IVbaProject::get_IsPasswordProtected können Sie feststellen, ob die Eigenschaften eines Projekts passwortgeschützt sind.
- Erstellen Sie eine Instanz der Klasse Presentation und laden Sie eine Präsentation, die ein Makro enthält.
- Prüfen Sie, ob die Präsentation ein VBA‑Projekt enthält.
- Prüfen Sie, ob das VBA‑Projekt passwortgeschützt ist, um seine Eigenschaften anzuzeigen.
auto presentation = MakeObject<Presentation>(u"VBA.pptm");
if (presentation->get_VbaProject() != nullptr) // Prüft, ob die Präsentation ein VBA-Projekt enthält.
{
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
Was passiert mit Makros, wenn ich die Präsentation als PPTX speichere?
Makros werden entfernt, da PPTX VBA nicht unterstützt. Um Makros zu erhalten, wählen Sie PPTM, PPSM oder POTM.
Kann Aspose.Slides Makros in einer Präsentation ausführen, um beispielsweise Daten zu aktualisieren?
Nein. Die Bibliothek führt niemals VBA‑Code aus; die Ausführung ist nur innerhalb von PowerPoint mit den entsprechenden Sicherheitseinstellungen möglich.
Wird die Arbeit mit ActiveX‑Steuerelementen, die an VBA‑Code gebunden sind, unterstützt?
Ja, Sie können auf vorhandene ActiveX‑Steuerelemente zugreifen, deren Eigenschaften ändern und sie entfernen. Dies ist nützlich, wenn Makros mit ActiveX interagieren.