Agregar formas a un documento de Visio mediante programación

Puede agregar formas a un documento de Microsoft Office Visio recuperando los patrones de una galería de símbolos y colocando las formas en la página activa.

Para obtener más información, vea la documentación de referencia de VBA del método Microsoft.Office.Interop.Visio.Documents.Add , la propiedad Microsoft.Office.Interop.Visio.Application.ActivePage y el método Microsoft.Office.Interop.Visio.Page.Drop .

Agregar formas a un documento de Visio

Para agregar formas a un documento de Visio

• Con un documento activo, recupere los patrones de la colección Documents.Masters y coloque las formas en el documento activo. Puede recuperar un patrón mediante el índice o el nombre del patrón.

  En el ejemplo de código siguiente se crea un documento de Visio en blanco y, a continuación, se abre con la galería de símbolos Formas básicas acoplada. A continuación, el código recupera varias formas y las coloca en la página activa.

  C#

  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.";
  

  VB

  Me.Application.Documents.Add("")
  
  Dim visioDocs As Visio.Documents = Me.Application.Documents
  Dim visioStencil As Visio.Document = visioDocs.OpenEx("Basic Shapes.vss", CShort(Microsoft.Office.Interop.Visio.VisOpenSaveArgs.visOpenDocked))
  
  Dim visioPage As Visio.Page = Me.Application.ActivePage
  
  Dim visioRectMaster As Visio.Master = visioStencil.Masters("Rectangle")
  Dim visioRectShape As Visio.Shape = visioPage.Drop(visioRectMaster, 4.25, 5.5)
  visioRectShape.Text = "Rectangle text."
  
  Dim visioStarMaster As Visio.Master = visioStencil.Masters("5-Point Star 7")
  Dim visioStarShape As Visio.Shape = visioPage.Drop(visioStarMaster, 2.0, 5.5)
  visioStarShape.Text = "Star text."
  
  Dim visioHexagonMaster As Visio.Master = visioStencil.Masters("Hexagon")
  Dim visioHexagonShape As Visio.Shape = visioPage.Drop(visioHexagonMaster, 7.0, 5.5)
  visioHexagonShape.Text = "Hexagon text."
  

Contenido relacionado

• Soluciones de Visio
• Introducción al modelo de objetos de Visio
• Trabajar con formas de Visio
• Cómo: Copiar y pegar formas mediante programación en un documento de Visio