방법: Visio 문서에 셰이프 추가

스텐실에서 마스터를 검색하고 활성 페이지로 셰이프를 끌어 놓아 Microsoft Office Visio 문서에 셰이프를 추가할 수 있습니다.

자세한 내용은 Microsoft.Office.Interop.Visio.Documents.Add 메서드, Microsoft.Office.Interop.Visio.Application.ActivePage 속성 및 Microsoft.Office.Interop.Visio.Page.Drop 메서드에 대한 VBA 참조 설명서를 참조하십시오.

Visio 문서에 셰이프 추가

Visio 문서에 셰이프를 추가하려면

• 문서가 활성화된 상태로 Documents.Masters 컬렉션에서 마스터를 검색하고 활성 문서로 셰이프를 끌어 놓습니다. 마스터는 인덱스 또는 마스터 이름을 사용하여 검색할 수 있습니다.

  다음 코드 예제에서는 빈 Visio 문서를 만든 다음 기본 셰이프 스텐실이 도킹된 상태로 해당 문서를 엽니다. 그런 다음 몇 개의 셰이프를 검색하여 활성 페이지로 끌어 놓습니다.

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

참고 항목

작업

방법: Visio 문서에서 셰이프 복사 및 붙여넣기

개념

Visio 개체 모델 개요

Visio 셰이프 작업

기타 리소스

Visio 솔루션