قم بإدارة رموز VBA الخاصة بـ Visio Macro-Enabled diagram.

أضف وحدة VBA النمطية

يسمح لك Aspose.Diagram بإضافة وحدة جديدة لـ VBA وكود ماكرو باستخدام Aspose.Diagram. الرجاء استخدامDiagram.VbaProject.Modules.Add () طريقة لإضافة وحدة VBA الجديدة داخل diagram

يضيف نموذج التعليمات البرمجية التالي وحدة VBA النمطية الجديدة ورمز الماكرو ويحفظ الإخراج بتنسيق VSDM. بمجرد فتح ملف الإخراج VSDM في Microsoft Visio والنقر فوق الزرالمطور> Visual Basic أوامر القائمة ، سترى وحدة تسمى “TestModule” وداخلها ، سترى رمز الماكرو التالي.

 Sub ShowMessage()

    MsgBox "Welcome to Aspose!"

End Sub

فيما يلي نموذج التعليمات البرمجية لإنشاء ملف الإخراج VSDM باستخدام وحدة VBA وكود الماكرو.

// ExStart:ApplyThemeToNewShape
// The path to the documents directory.
string dataDir = RunExamples.GetDataDir_Shapes();

// Load a diagram
Diagram diagram = new Diagram(dataDir + "1.vsdm");
//Add module
int index = diagram.VbaProject.Modules.Add(VbaModuleType.Procedural, "TestModule");
//Get module 
Aspose.Diagram.Vba.VbaModule module = diagram.VbaProject.Modules[index];
//Set module
module.Codes = "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);

تعديل VBA أو ماكرو

يمكنك تعديل VBA أو Macro Code باستخدام Aspose.Diagram. قام Aspose.Diagram بإضافة مساحة الاسم والفئات التالية لقراءة وتعديل مشروع VBA في ملف Visio.

• Aspose.Diagram.Vba
• VbaProject
• مجموعة VbaModuleCollection
• VbaModule

ستوضح لك هذه المقالة كيفية تغيير VBA أو Macro Code داخل الملف المصدر Visio باستخدام Aspose.Diagram.

يقوم نموذج التعليمات البرمجية التالي بتحميل الملف المصدر Visio الذي يحتوي على رمز VBA أو Macro التالي بداخله

 Sub Button1_Click()

    MsgBox "This is test message."

End Sub

بعد تنفيذ رمز عينة Aspose.Diagram ، سيتم تعديل رمز VBA أو ماكرو بهذا الشكل

 Sub Button1_Click()

    MsgBox "This is Aspose.Diagram message."

End Sub

يمكنك تنزيل ملفالمصدر Visio ملف و الملف الإخراج Visio من الروابط المعطاة.

// ExStart:ApplyThemeToNewShape
// The path to the documents directory.
string dataDir = RunExamples.GetDataDir_Shapes();

// Load a diagram
Diagram diagram = new Diagram(dataDir + "1.vsdm");
//Get module 
Aspose.Diagram.Vba.VbaModule module = diagram.VbaProject.Modules[2];
//Set module
module.Codes = "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);

موضوعات مسبقة

• تحقق مما إذا كان رمز VBA قد تم توقيعه