ID Artikel: 309603 - Kajian Terakhir: 24 September 2011 - Revisi: 2.0

Cara menggunakan otomatisasi OLE di Visio

Klik disini untuk menampilkan sumber Inggris dan terjemahan oleh mesin secara berdampingan

Peringatan: artikel ini adalah terjemahan oleh mesin

Melihat produk di mana artikel ini berlaku.

Tips SistemThis article applies to a different operating system than the one you are using. Article content that may not be relevant to you is disabled.

Artikel ini berisi informasi tentang cara menggunakan Microsoft Visual Basic atau Microsoft Visual Basic for Applications (VBA) untuk mengotomatisasi Microsoft Office Visio2from Microsoft lain Office program.

Microsoft memberi contoh pemprograman untuk ilustrasi saja, tanpa garansi baik tersurat maupun tersirat. Ini termasuk, namun tidak terbatas untuk, jaminan tersirat mengenai keadaan yang dapat diperjualbelikan atau kesesuaian untuk tertentu tujuan. Artikel ini mengasumsikan bahwa Anda sudah familiar dengan pemrograman bahasa yang ditunjukkan dan dengan alat-alat yang digunakan untuk membuat dan memperbaiki prosedur. Teknisi Microsoft dapat membantu menjelaskan fungsionalitas prosedur tertentu, tetapi mereka tidak akan mengubah ini contoh untuk menyediakan fungsionalitas tambahan atau membuat prosedur untuk memenuhi Anda persyaratan tertentu.

Kembali ke atas

Ikhtisar otomatisasi

Otomatisasi (juga disebut OLE automation) dalam Visual Basic adalah proses mengendalikan satu program dari lain program atau alat pengembangan eksternal. Anda dapat mengotomatisasi setiap program yang berisi Visual Basic object model. Model objek adalah kumpulan hirarkis program objek yang tersedia atau terkena untuk Visual Basic.

Sebagai contoh, model objek untuk Microsoft Visio berisi objek seperti:

Aplikasi/global objek
Dokumen objek
Halaman objek
Master objek
Pemilihan obyek
Bentuk objek
Jendela objek

Masing-masing objek ini memiliki sekumpulan metode yang unik dan properti yang dibutuhkan untuk bekerja dengan mereka dalam Visual Basic. Sebagai contoh, Bentuk objek dapat mewakili benda Visio gambar halaman yang Anda dapat Pilih dengan menggunakan penunjuk. Oleh karena itu, sebuah bentuk objek dapat bentuk, grup, Panduan, kontrol, atau objek dari program lain yang terhubung, tertanam, atau diimpor ke Visio gambar.

Kembali ke atas

Persiapan

Contoh kode dalam artikel ini menunjukkan bagaimana mengontrol Visio dari Microsoft Office 2007, Microsoft Office 2003, Microsoft Office 2002, Microsoft Visual Basic 6.0, atau dari setiap program yang mencakup pengembangan Visual Basic alat. Untuk mengotomatisasi Visio, ikuti langkah-langkah utama ini empat:

Menambahkan referensi ke perpustakaan jenis Visio.
Menyatakan variabel sebagai jenis objek Visio (biasanya Visio.Application atau Visio.Documents).
Menetapkan metode GetObject atau CreateObject ke objek variabel Anda menyatakan pada langkah 2.
Menggunakan properti objek Visio, metode dan anak objek untuk mengotomatisasi Visio.

Langkah 1: Menambahkan referensi ke perpustakaan jenis Visio

Untuk menambahkan referensi ke perpustakaan jenis Visio dengan menggunakan Microsoft Kantor aplikasi seperti Microsoft Office XP atau Office 2003, ikuti langkah-langkah:

Access, PowerPoint, Excel, atau kata, arahkan ke Makro pada Alat menu, dan kemudian klik Penyunting Visual Basic.
Pada Alat menu, klik Referensi.

Catatan Untuk menambahkan referensi yang menggunakan Microsoft Visual Basic 6.0, klik Referensi pada Project menu.
Dalam daftar Referensi yang tersedia, klik untuk memilih salah satu kotak berikut, tergantung pada versi Visio yang Anda gunakan:
- Visio 2007, klik untuk memilih Microsoft Visio 12,0 perpustakaan jenis kotak centang.
- Visio 2003, klik untuk memilih Microsoft Visio 11,0 perpustakaan jenis kotak centang.
- Visio 2002, klik untuk memilih Microsoft Visio 2002 perpustakaan jenis kotak centang.

Ketika Anda menambahkan referensi Perpustakaan jenis Microsoft Visio, Anda program dapat mengakses Microsoft Visio Online membantu dan model objek Visio. Karena referensi disimpan dalam setiap proyek, Anda harus menambahkan Visio Referensi Perpustakaan jenis untuk setiap Visual Basic atau VBA proyek yang ingin Anda digunakan untuk mengotomatisasi Visio.

Langkah 2: Menyatakan variabel objek

Menyatakan variabel objek Visio, dimensi variabel sebagai khusus jenis objek Visio, seperti Visio.Application, Visio.Documents, atau Visio.Page.

Secara eksplisit menyatakan jenis objek disebut ikatan karena aplikasi controller menghubungkan atau mengikat objek untuk aplikasi Visio pada waktu kompilasi daripada pada saat run-time. Ini memberi Anda akses ke daftar auto Visio dan konteks sensitif Membantu, dan memungkinkan kode untuk menjalankan lebih efisien.

Untuk informasi lebih lanjut tentang objek mengikat, klik nomor artikel di bawah ini untuk melihat artikel di Microsoft Basis Pengetahuan:

138138� (http://support.microsoft.com/kb/138138/ ) Terlambat, ID, awal mengikat jenis mungkin di VB untuk aplikasi

Berikut contoh Visual Basic argumen menyatakan variabel AppVisio sebagai objek dari tipe Visio.Application:

   Dim AppVisio as Visio.Application

Langkah 3: Mengatur variabel

Anda dapat menggunakan metode Visual Basic dua berikut untuk mengaktifkan Visio:

CreateObject
GetObject

Perbedaan utama adalah bahwa metode CreateObject menciptakan contoh baru Visio, dan metode GetObject menggunakan sudah berjalan contoh Visio. Anda juga dapat menggunakan GetObject untuk menetapkan variabel objek dokumen Visio spesifik.

Berikut contoh argumen set AppVisio variabel untuk Visio aplikasi yang menggunakan CreateObject fungsi:

   Dim AppVisio as Visio.Application

   Set AppVisio = CreateObject("Visio.Application")

Dalam beberapa kasus, Anda mungkin ingin menggunakan contoh Visio ada jika Visio sudah berjalan, tetapi membuat contoh baru jika Visio tidak berjalan. Pada melakukan hal ini, membuat sebuah kesalahan handler yang menggunakan metode CreateObject dalam acara bahwa metode GetObject gagal, seperti yang ditunjukkan dalam kode contoh ini:

   Dim AppVisio As Visio.Application

   On Error Resume Next

   Set AppVisio = GetObject(, "visio.application")

   If AppVisio Is Nothing Then
      Set AppVisio = CreateObject("visio.application")
   End If

Catatan Anda juga dapat menggunakan fungsi CreateObject untuk membuat Visio contoh yang tak terlihat. Misalnya:

Set AppVisio = CreateObject("Visio.InvisibleApp")

Anda dapat menggunakan properti terlihat objek aplikasi untuk kontrol Apakah contoh terlihat.

Anda dapat menggunakan InvisibleApp objek dengan hanya CreateObject fungsi. Upaya untuk menggunakannya dengan GetObject fungsi akan gagal. InvisibleApp obyek ini tidak tersedia dalam versi Visio lebih awal dari Microsoft Visio 2000.

Langkah 4: Gunakan Visio objek, metode dan properti

Setelah Anda menyelesaikan langkah 1 sampai 3, Anda dapat menggunakan Visio variabel objek untuk mengotomatisasi Visio.

Contoh berikut menggunakan makro otomatisasi untuk memulai Visio, membuat gambar baru (dokumen) didasarkan pada dasar Diagram template, tetes persegi panjang, menambahkan beberapa teks, dan menyimpan gambar dan berhenti Visio.

Sub AutoVisio()

   
   Dim AppVisio As Visio.Application  ' Declare an Instance of Visio.
   Dim docsObj As Visio.Documents     ' Documents collection of instance.
   Dim DocObj As Visio.Document       ' Document to work in.
   Dim stnObj As Visio.Document       ' Stencil that contains master.
   Dim mastObj As Visio.Master        ' Master to drop.
   Dim pagsObj As Visio.Pages         ' Pages collection of document.
   Dim pagObj As Visio.Page           ' Page to work in.
   Dim shpObj As Visio.Shape          ' Instance of master on page.

   ' Create an instance of Visio and create a document based on the
   ' Basic Diagram template. It doesn't matter if an instance of
   ' Visio is already running, CreateObject will run a new one.
   Set AppVisio = CreateObject("visio.application")

   Set docsObj = AppVisio.Documents

   ' Create a document based on the Basic Diagram template that
   ' automatically opens the Basic Shapes stencil.
   Set DocObj = docsObj.Add("Basic Diagram.vst")

   Set pagsObj = AppVisio.ActiveDocument.Pages

   ' A new document always has at least one page, whose index in the
   ' Pages collection is 1.
   Set pagObj = pagsObj.Item(1)

   Set stnObj = AppVisio.Documents("Basic Shapes.vss")
   Set mastObj = stnObj.Masters("Rectangle")

   ' Drop the rectangle in the approximate middle of the page.
   ' Coordinates passed with the Drop method are always inches.
   Set shpObj = pagObj.Drop(mastObj, 4.25, 5.5)

   ' Set the text of the rectangle.
   shpObj.Text = "This is some text."

   ' Save the drawing and quit Visio. The message pauses the program
   ' so you can see the Visio drawing before the instance closes.
   DocObj.SaveAs "MyDrawing.vsd"
   MsgBox "Drawing finished!", , "AutoVisio (OLE) Example"

   ' Quit Visio.
   AppVisio.Quit

   ' Clear the variable from memory.
   Set AppVisio = Nothing

End Sub

Kembali ke atas

REFERENSI

Microsoft Visio pengembang Web situs

Untuk informasi lebih lanjut tentang cara untuk mengotomatisasi Visio, kunjungi Web site Microsoft berikut:

http://msdn2.Microsoft.com/en-US/Office/aa905478.aspx (http://msdn2.microsoft.com/en-us/office/aa905478.aspx)

Untuk informasi lebih lanjut tentang bagaimana mengembangkan Microsoft Visio solusi, kunjungi Web site Microsoft berikut:

.aspx http://msdn2.Microsoft.com/en-us/library/aa217846 (office.10) (http://msdn2.microsoft.com/en-us/library/aa217846(office.10).aspx)

Kembali ke atas

Kit pengembangan perangkat lunak Visio

Untuk men-download Visio 2002 Software Development Kit, kunjungi Web site Microsoft berikut:

http://www.Microsoft.com/downloads/details.aspx?FamilyID=d2845e80-6634-4703-9ad9-7e440ede12d7&DisplayLang=en (http://www.microsoft.com/downloads/details.aspx?familyid=d2845e80-6634-4703-9ad9-7e440ede12d7&displaylang=en)

Untuk men-download Visio 2003 Software Development Kit, kunjungi Web site Microsoft berikut:

http://www.Microsoft.com/downloads/details.aspx?FamilyID=557120bd-b0bb-46e7-936a-b8539898d44d&DisplayLang=en (http://www.microsoft.com/downloads/details.aspx?familyid=557120bd-b0bb-46e7-936a-b8539898d44d&displaylang=en)

Kembali ke atas

Newsgroup

Newsgroup peer-to-peer berikut tersedia untuk membantu Anda berinteraksi dengan pengguna lain dari Visual Basic untuk aplikasi:

Microsoft.Public.VB.Ole.Automation
Microsoft.Public.Visio.developer.VBA

Kembali ke atas

Bantuan Visual Basic

Untuk informasi lebih lanjut tentang bagaimana menggunakan CreateObject fungsi, di Editor Visual Basic, klik Microsoft Visual Basic bantuan pada Bantuan menu, jenis CreateObject fungsi dalam Mencari kotak, dan kemudian klik Mencari untuk melihat topik yang dikembalikan.

Untuk lebih informasi tentang cara menggunakan GetObject fungsi, di Editor Visual Basic, klik Microsoft Visual Basic bantuan pada Bantuan menu, jenis GetObject fungsi dalam Mencari kotak, dan kemudian klik Mencari untuk melihat topik yang dikembalikan.

Kembali ke atas

Berlaku bagi:

Microsoft Office Visio Standard 2007
Microsoft Office Visio Professional 2007
Microsoft Office Visio Professional 2003
Microsoft Visio 2002 Standard Edition
Microsoft Visio 2002 Professional Edition

Kembali ke atas

kbautomation kbprogramming kbvba kbhowto kbmt KB309603 KbMtid

Kembali ke atas

Penerjemahan Mesin

PENTING: Artikel ini diterjemahkan menggunakan perangkat lunak mesin penerjemah Microsoft dan bukan oleh seorang penerjemah. Microsoft menawarkan artikel yang diterjemahkan oleh seorang penerjemah maupun artikel yang diterjemahkan menggunakan mesin sehingga Anda akan memiliki akses ke seluruh artikel baru yang diterbitkan di Pangkalan Pengetahuan (Knowledge Base) dalam bahasa yang Anda gunakan. Namun, artikel yang diterjemahkan menggunakan mesin tidak selalu sempurna. Artikel tersebut mungkin memiliki kesalahan kosa kata, sintaksis, atau tata bahasa, hampir sama seperti orang asing yang berbicara dalam bahasa Anda. Microsoft tidak bertanggung jawab terhadap akurasi, kesalahan atau kerusakan yang disebabkan karena kesalahan penerjemahan konten atau penggunaannya oleh para pelanggan. Microsoft juga sering memperbarui perangkat lunak mesin penerjemah.

Klik disini untuk melihat versi Inggris dari artikel ini:309603� (http://support.microsoft.com/kb/309603/en-us/ )

Kembali ke atas