以程式設計方式將圖形新增至 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 文件,然後用停駐的 [基本圖形] 樣板開啟它。 程式碼接著會擷取數個圖形,並將它們放在使用中的頁面上。

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