HOW TO：將圖形加入至 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.";
  

請參閱

工作

HOW TO：在 Visio 文件中複製並貼上圖形

概念

Visio 物件模型概觀

使用 Visio 圖案

其他資源

Visio 方案