Ajouter des formes par programmation à un document Visio

  • Article

Vous pouvez ajouter des formes à un document Microsoft Office Visio en récupérant les formes de base d’un gabarit et en déplaçant les formes sur la page active.

Pour plus d’informations, consultez la documentation de référence de VBA pour la méthode Microsoft.Office.Interop.Visio.Documents.Add , la propriété Microsoft.Office.Interop.Visio.Application.ActivePage et la méthode Microsoft.Office.Interop.Visio.Page.Drop .

Ajouter des formes à un document Visio

Pour ajouter des formes à un document Visio

  • Dans un document actif, récupérez les formes de base de la collection Documents.Masters et déplacez les formes sur celui-ci. Vous pouvez récupérer une forme de base à l’aide du nom de l’index ou de la forme de base.

    L’exemple de code suivant crée un document Visio vierge, puis l’ouvre avec le gabarit Formes de base ancré. Le code récupère ensuite plusieurs formes et les déplace sur la page active.

    this.Application.Documents.Add("");

Visio.Documents visioDocs = this.Application.Documents;
Visio.Document visioStencil = visioDocs.OpenEx("Basic Shapes.vss",
    (short)Microsoft.Office.Interop.Visio.VisOpenSaveArgs.visOpenDocked);

Visio.Page visioPage = this.Application.ActivePage;

Visio.Master visioRectMaster = visioStencil.Masters.get_ItemU(@"Rectangle");
Visio.Shape visioRectShape = visioPage.Drop(visioRectMaster, 4.25, 5.5);
visioRectShape.Text = @"Rectangle text.";

Visio.Master visioStarMaster = visioStencil.Masters.get_ItemU(@"5-Point Star 7");
Visio.Shape visioStarShape = visioPage.Drop(visioStarMaster, 2.0, 5.5);
visioStarShape.Text = @"Star text.";

Visio.Master visioHexagonMaster = visioStencil.Masters.get_ItemU(@"Hexagon");
Visio.Shape visioHexagonShape = visioPage.Drop(visioHexagonMaster, 7.0, 5.5);
visioHexagonShape.Text = @"Hexagon text.";

Contenu connexe