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
Vous pouvez modifier VBA ou Macro Code à l’aide de Aspose.Diagram. Aspose.Diagram a ajouté l’espace de noms et les classes suivants pour lire et modifier le projet VBA dans le fichier Visio.
- Aspose.Diagram.Vba
- Projet Vba
- VbaModuleCollectionVbaModuleCollection
- Module Vba
Cet article vous montrera comment modifier le code VBA ou macro dans le fichier source Visio à l’aide de Aspose.Diagram.
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); |