Gérer les codes VBA de Visio Macro-Enabled diagram.

Ajouter un module VBA

L’exemple de code suivant ajoute un nouveau module VBA et un code macro et enregistre la sortie au format VSDM. Une fois, vous ouvrirez le fichier de sortie VSDM dans Microsoft Visio et cliquez sur leDéveloppeur > Visual Basic commandes de menu, vous verrez un module nommé “TestModule” et à l’intérieur, vous verrez le code macro suivant.

 Sub ShowMessage()

    MsgBox "Welcome to Aspose!"

End Sub

Voici l’exemple de code pour générer le fichier de sortie VSDM avec le module VBA et le code macro.

// 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);

Modifier VBA ou Macro

L’exemple de code suivant charge le fichier source Visio qui contient un code VBA ou Macro suivant à l’intérieur

 Sub Button1_Click()

    MsgBox "This is test message."

End Sub

Après l’exécution de l’exemple de code Aspose.Diagram, le code VBA ou Macro sera modifié comme ceci

 Sub Button1_Click()

    MsgBox "This is Aspose.Diagram message."

End Sub

Vous pouvez télécharger lefichier source Visio et lefichier de sortie Visio à partir des liens donnés.

// 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);

Sujets avancés