Cara mengotomatisasi Visio dengan Visual Basic.NET

• Menarik sederhana bagan di Visio gambar halaman yang berdasarkan data yang terdapat dalam array.
• Nama halaman.
• Menyimpan dokumen.

Langkah-langkah untuk membuat sampel Visual Basic.NET aplikasi

1. Mulai Microsoft Visual Studio.NET. Pada Berkas menu, klik Baru kemudian klik Project. Di bawah Jenis proyek Klik Proyek-proyek Visual Basic, lalu klik Aplikasi Windows di bawah Pola acu. Form1 dibuat secara default.
2. Menambahkan referensi ke perpustakaan objek Visio. Untuk melakukan hal ini, Ikuti langkah berikut:
   1. Pada Project menu, klik Menambahkan referensi.
   2. Pada COM tab, klik salah satu opsi berikut, dan klik Pilih:
      • Untuk Visio 2007, klik Microsoft Visio 12,0 perpustakaan jenis.
      • Visio 2003, klik Microsoft Visio 11,0 perpustakaan jenis.
      • Visio 2002, klik Microsoft Visio 2002 perpustakaan jenis.
      Catatan Jika Anda tidak melakukannya, Microsoft menyarankan Anda men-download dan menginstal Microsoft Office XP utama Interop Majelis (PIAs).
      
      Untuk informasi lebih lanjut tentang Office XP PIAs, klik nomor artikel di bawah ini untuk melihat artikel di dalam Basis Pengetahuan Microsoft:
      328912  (http://support.microsoft.com/kb/328912/ ) Microsoft Office XP utama interop Majelis (PIAs) tersedia untuk di-download
   3. Klik Oke dalam Menambahkan referensi kotak dialog untuk menerima pilihan Anda. Jika Anda menerima prompt untuk menghasilkan pembungkus untuk perpustakaan yang Anda pilih, klik Ya.
3. Pada Lihat menu, klik ToolBox. Tambahkan tombol untuk Form1.
4. Klik dua kali Button1. Kode jendela terbuka di acara klik untuk Button1.
5. Dalam jendela kode, mengganti kode berikut

   Private Sub Button1_Click(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles Button1.Click
   End Sub
   					

   dengan:

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
         System.EventArgs) Handles Button1.Click
      fBuildArray()
      fBuildFlowchart()
   End Sub
   					

6. Pada Project menu, klik Menambahkan modul.
7. Ganti isi Module1 dengan berikut:

   Module Module1
      Public aryValues(5, 2) As String
      Sub fBuildArray()
         aryValues(0, 0) = "Terminator"
         aryValues(1, 0) = "Document"
         aryValues(2, 0) = "Decision"
         aryValues(3, 0) = "Process"
         aryValues(4, 0) = "Terminator"
   
         aryValues(0, 1) = "Begin Routing Process"
         aryValues(1, 1) = "Gather Customer Data"
         aryValues(2, 1) = "Supported Issue?"
         aryValues(3, 1) = "Dispatch to Queue"
         aryValues(4, 1) = "End Routing Process"
      End Sub
   
      Sub fBuildFlowchart()
         Dim vApp As Visio.Application
         Dim vDoc As Visio.Document
         Dim vFromShape As Visio.Shape
         Dim vToShape As Visio.Shape
         Dim vConnector As Visio.Shape
         Dim vFlowChartMaster As Visio.Master
         Dim vConnectorMaster As Visio.Master
         Dim vStencil As Visio.Document
         Dim dblXLocation As Double
         Dim dblYLocation As Double
         Dim vBeginCell As Visio.Cell
         Dim vEndCell As Visio.Cell
         Dim iCount As Integer
         Const TEMPLATEPATH = "C:\Program Files\Microsoft Office\Visio10\1033\" _
            & "Solutions\Flowchart\Basic Flowchart Shapes (US units).vss"
   
         ' Change this constant to match your choice of location and file name.
         Const SAVENEWFILE = "C:\Simpleflowchart.vsd"
   
         ' Start point measured from the bottom left corner.
         dblXLocation = 4.25
         dblYLocation = 8.5
   
         vApp = New Visio.Application()
         'Create a new document; note the empty string.
         vDoc = vApp.Documents.Add("")
         vStencil = vApp.Documents.OpenEx(TEMPLATEPATH, 4)
   
         For iCount = LBound(aryValues) To UBound(aryValues) - 1
            vFlowChartMaster = vStencil.Masters(aryValues(iCount, 0))
            vToShape = vApp.ActivePage.Drop(vFlowChartMaster, _
               dblXLocation, dblYLocation)
            vToShape.Text = aryValues(iCount, 1)
            If Not vFromShape Is Nothing Then
               If vConnectorMaster Is Nothing Then
                  vConnectorMaster = vStencil.Masters("Dynamic Connector")
               End If
               vConnector = vApp.ActivePage.Drop(vConnectorMaster, 0, 0)
               vBeginCell = vConnector.Cells("BeginX")
               vBeginCell.GlueTo(vFromShape.Cells("AlignBottom"))
               vEndCell = vConnector.Cells("EndX")
               vEndCell.GlueTo(vToShape.Cells("AlignTop"))
               vConnector.SendToBack()
            End If
            vFromShape = vToShape
            vToShape = Nothing
            dblYLocation = dblYLocation - 1.5
         Next
         vDoc.Pages(1).Name = "Flowchart Example"
         Try
            ' Delete the previous version of the file.
            Kill(SAVENEWFILE)
         Catch
         End Try
         vDoc.SaveAs(SAVENEWFILE)
         vDoc.Close()
         vApp.Quit()
         vDoc = Nothing
         vApp = Nothing
         GC.Collect()
      End Sub
   End Module
   					

   Catatan Memodifikasi TEMPLATEPATH konstan untuk menunjuk ke folder instalasi Visio. Secara default, lokasi adalah salah satu dari berikut ini:
   • Untuk Office Visio 2007, lokasi default adalah c: program files Microsoft Office\Visio12\1033\BASFLO_U.VSS.
   • Visio 2003, lokasi default untuk berkas ini adalah C:\Program Files\Microsoft Office\Visio11\1033\BASFLO_U.VSS
   • Visio 2002, lokasi default untuk berkas ini adalah c: Bentuk diagram alur Files\Microsoft Visio\Visio10\1033\Solutions\Flowchart\Basic (Kami unit) .vss.
8. Pada Debug menu, klik Mulai.
9. Buka C:\Simpleflowchart.vsd di Visio untuk melihat hasil.

Kembali ke atas