Partilhar via


Como: Adicionar formas a um documento do Visio

Você pode adicionar formas a um documento do Visio de Microsoft Office, recuperando os mestres de um estêncil e soltando formas na página ativa.

Para obter mais informações, consulte a documentação de referência do VBA para o Microsoft.Office.Interop.Visio.Documents.Add método, Microsoft.Office.Interop.Visio.Application.ActivePage propriedade, e Microsoft.Office.Interop.Visio.Page.Drop método.

Adicionar formas a um documento do Visio

Adicionar formas a um documento do Visio

  • Com o documento ativo, recuperar os mestres da coleção Documents.Masters e solte as formas no documento ativo. Você pode recuperar uma página-mestre usando o índice ou nome do mestre.

    O exemplo de código a seguir cria um documento em branco do Visio e abre-o com o Formas básicas estêncil encaixado. O código recupera a várias formas e descarta na página ativa.

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

Consulte também

Tarefas

Como: Copiar e colar a formas em um documento do Visio

Conceitos

Visão geral do modelo de objeto do Visio

Trabalhando com formas do Visio

Outros recursos

Soluções do Visio