Comment insérer des formes dans Visio VBA

Lancez votre Visio éditeur Visual Basic et ouvrez le fichier que vous souhaitez insérer des formes dans.

Tapez les lignes suivantes de code pour copier les formes de source de sorte que vous pouvez les insérer dans le document Visio à l'étape suivante:

Me.Application.Documents.Add ("")

Dim copypage Comme Visio.Page

Dim pastePage Comme Visio.Page

Rectangle Dim Comme Visio.Shape = Nothing

Ovale Dim Comme Visio.Shape = Nothing

Commande Visual Basic pour ajouter les formes à la nouvelle page en utilisant les lignes de code suivantes:

VisioPages Dim comme Visio.Pages = Me.Application.ActiveDocument.Pages

visioPages.Add ()

Copiez les formes au diagramme Visio en utilisant Visual Basic en exécutant les lignes de code suivantes:

Essayer

copypage = visioPages (1)
rectangle = copyPage.DrawRectangle (1.1, 2.2, 4.5, 6.7)
ovale = copyPage.DrawOval (1, 8,75, 3,5, 6,25)

Crochet ex comme exception

System.Windows.Forms.MessageBox.Show (ex.Message)

Essayez de Fin

Continuer à utiliser le "Essayer" et "Essayez de Fin" commandes, avec les paramètres respectifs remplis entre les deux afin d'insérer des formes supplémentaires. Spécifiez les noms de la même tels que "ovale" ou "rectangle" pour changer ce genre de forme est inséré dans le document.