Menambahkan bentuk secara terprogram ke dokumen Visio

Anda bisa menambahkan bentuk ke dokumen Microsoft Office Visio dengan mengambil master dari stensil dan menjatuhkan bentuk di halaman aktif.

Untuk informasi selengkapnya, lihat dokumentasi referensi VBA untuk metode Microsoft.Office.Interop.Visio.Documents.Add, properti Microsoft.Office.Interop.Visio.Application.ActivePage, dan metode Microsoft.Office.Interop.Visio.Page.Drop.

Menambahkan bentuk ke Dokumen Visio

Untuk menambahkan bentuk ke dokumen Visio

• Dengan dokumen aktif, ambil master dari koleksi Documents.Masters dan letakkan bentuk pada dokumen aktif. Anda dapat mengambil master dengan menggunakan indeks atau nama master.

  Contoh kode berikut membuat dokumen Visio kosong, lalu membukanya dengan stensil Bentuk Dasar yang ditampung. Kode kemudian mengambil beberapa bentuk dan menghilangkannya di halaman aktif.

  C#

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

  VB

  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("5-Point 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."
  

Konten terkait

• Solusi Visio
• Gambaran umum model objek Visio
• Bekerja dengan bentuk Visio
• Cara: Menyalin dan menempelkan bentuk secara terprogram dalam dokumen Visio