مدیریت پروژه‌های VBA در ارائه‌ها با استفاده از C++

مقدمه

Aspose.Slides.Vba فضای نام شامل کلاس‌ها و اینترفیس‌هایی برای کار با ماکروها و کد VBA است.

Note

هنگامی که یک ارائه حاوی ماکروها را به قالب فایل دیگری (PDF، HTML و غیره) تبدیل می‌کنید، Aspose.Slides تمام ماکروها را نادیده می‌گیرد (ماکروها به فایل نتیجه منتقل نمی‌شوند).

هنگامی که ماکروها را به یک ارائه اضافه می‌کنید یا ارائه‌ای حاوی ماکروها را دوباره ذخیره می‌نمایید، Aspose.Slides به سادگی بایت‌های ماکروها را می‌نویسد.

Aspose.Slides هرگز ماکروهای موجود در یک ارائه را اجرا نمی‌کند.

افزودن ماکروهای VBA

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 است.

حذف ماکروهای VBA

با استفاده از ویژگی VbaProject زیر کلاس Presentation می‌توانید یک ماکرو VBA را حذف کنید.

یک نمونه از کلاس Presentation ایجاد کنید و ارائه حاوی ماکرو را بارگذاری کنید.
به ماژول Macro دسترسی پیدا کنید و آن را حذف کنید.
ارائهٔ اصلاح‌شده را ذخیره کنید.

این کد 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);

استخراج ماکروهای VBA

یک نمونه از کلاس 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());
		}
	}

بررسی اینکه آیا یک پروژهٔ VBA رمزعبور دارد یا نه

با استفاده از ویژگی 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();

سوالات متداول

What happens to macros if I save the presentation as PPTX?
ماکروها حذف خواهند شد زیرا PPTX از VBA پشتیبانی نمی‌کند. برای نگه داشتن ماکروها، PPTM، PPSM یا POTM را انتخاب کنید.

Can Aspose.Slides run macros inside a presentation to, for example, refresh data?
خیر. کتابخانه هرگز کد VBA را اجرا نمی‌کند؛ اجرا فقط در PowerPoint با تنظیمات امنیتی مناسب امکان‌پذیر است.

Is working with ActiveX controls linked to VBA code supported?
بله، می‌توانید به کنترل‌های ActiveX controls موجود دسترسی پیدا کنید، ویژگی‌های آن‌ها را تغییر دهید و آن‌ها را حذف کنید. این برای مواقعی مفید است که ماکروها با ActiveX تعامل دارند.

ایجاد افکت‌های سه‌بعدی در ارائه‌ها با استفاده از C++ مقالات فنی