Partilhar via

Como: Adicionar formas a um documento do Visio

  • Artigo

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

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

Adicionar formas a um documento do Visio

Adicionar formas a um documento do Visio

  • Com um documento ativo, recuperar os mestres de coleção Documents.Masters e Soltar as formas do documento ativo.Você pode recuperar um mestre usando o índice ou nome do mestre.

    O exemplo de código a seguir cria um documento em branco do Visio e, em seguida, abre-lo com o Basic formas estêncil encaixado.O código recupera várias formas e descarta-las na página Ativo.

    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 formas em um documento do Visio

Conceitos

Soluções do Visio

Visão geral do modelo de objeto do Visio

Trabalhando com formas do Visio