Oturum a�

Select the product you need help with

Visio'da OLE otomasyonunu nas�l kullan�l�r

Makale numaras�: 309603 - Bu makalenin ge�erli oldu�u �r�nleri g�r�n.

Otomatik terc�me makalelerin ne oldu�unu a��klayan yaz�y� okumak i�in buraya t�klay�n

�ngilizce ve T�rk�e'yi yan yana g�r�nt�leme

Buraya t�klayarak �ngilizce ve T�rk�e'yi yan yana g�r�nt�leyebilirsiniz.

Hepsini a� | Hepsini kapa

Bu makalede, ba�ka bir Microsoft Office program�n� Microsoft Office Visio2from otomatikle�tirmek i�in Microsoft Visual Basic veya Microsoft Visual Basic for Applications (VBA)'n� kullanma hakk�nda bilgi i�erir.

Microsoft, programlama �rneklerini yaln�zca g�sterim amac�yla sa�lar; �rt�l� veya a��k garanti vermez. Buna sat�labilirlik veya belirli bir amaca uygunluk z�mni garantileri de dahildir, ancak bunlarla s�n�rl� de�ildir. Bu makale, g�sterilen programlama dilini ve yordamlar� olu�turmak ve hata ay�klamak amac�yla kullan�lan ara�lar� kullanmay� bildi�inizi varsayar. Microsoft destek m�hendisleri, belirli bir yordam�n i�levselli�inin a��klanmas�na yard�mc� olabilir, ancak gereksinimlerinizi kar��lamaya y�nelik olarak ek i�levsellik sa�lamak veya yordamlar geli�tirmek amac�yla bu �rnekleri de�i�tirmezler.

Otomasyon'e genel bak��

Visual Basic'te (OLE otomasyonunu olarak da bilinir) Otomasyonu, ba�ka bir programdan denetleme i�lemidir program veya d�� bir geli�tirme arac�d�r. Bir Visual Basic nesne modeline i�eren herhangi bir program� otomatikle�tirebilirsiniz. Nesne modeli, program�n kullan�labilir olan nesneleri veya Visual Basic kulland�� hiyerar�ik bir toplam�d�r.

�rne�in, Microsoft Visio i�in nesne modelini gibi nesneleri i�erir:

Uygulama genel nesnesi
Belge nesnesi
Sayfa nesnesi
Ana nesne
Se�im nesnesi
�ekil nesnesi
Pencere bir nesne

Bu nesnelerin her biri, y�ntem ve �zelliklerini Visual Basic'te bir bunlarla �al��mak i�in gerekli olan benzersiz bir k�mesi vard�r. �rne�in, bir �ekil nesnesi, imleci kullanarak se�ebilece�iniz bir Visio �izim sayfas�ndaki herhangi bir nesneyi temsil edebilir. Bu nedenle, bir �ekil nesnesi olabilir �eklinde, bir grup, k�lavuz, bir denetim veya ba�l� oldu�u ba�ka bir programdan bir nesne, kat��t�r�lm�� veya bir Visio �izimine al�nd�.

Ba�larken

Bu makaledeki kod �rnekleri, Visio, Microsoft Office 2007 Microsoft Office 2003, Microsoft Office 2002, Microsoft Visual Basic 6.0, veya bir Visual Basic geli�tirme arac� i�eren herhangi bir program� nas�l g�sterilmektedir. Visio otomatikle�tirmek i�in <a0></a0>, d�rt ana ad�mlar� izleyin:

<a0>Visio</a0> t�r�ndeki kitapl��a bir ba�vuru ekleyin.
Bir de�i�ken olarak bir Visio nesne t�r� (genellikle Visio.Application veya Visio.Documents).
Ad�m 2'olarak bildirilen bir nesne de�i�keni GetObject veya CreateObject y�ntemi atay�n.
Visio nesnenin �zellikler, y�ntemler ve ba��ml� nesnelere Visio otomatik hale getirmek i�in kullan�n.

1. Ad�m: <a0>Visio</a0> t�r�ndeki kitapl��a bir ba�vuru Ekle

Microsoft Office XP veya Office 2003 gibi Microsoft Office uygulamalar� kullanarak <a0>Visio</a0> t�r�ndeki kitapl��a bir ba�vuru eklemek i�in a�a��daki ad�mlar� izleyin:

Access, PowerPoint, Excel veya Word, Ara�lar men�s�nden makrolar i�in ve Visual Basic D�zenleyicisi</a1>'� t�klat�n.
Ara�lar men�s�nde, Ba�vurular ' � t�klat�n.

Not Microsoft Visual Basic 6. 0'� kullanarak bir ba�vuru eklemek i�in <a0></a0>, Proje men�s�nde Ba�vurular ' � t�klat�n.
Kullan�labilir ba�vurular listesinde kulland��n�z Visio s�r�m�ne ba�l� olarak a�a��daki onay kutular�ndan birini se�mek i�in t�klat�n:
- Visio 2007 i�in <a0>Microsoft Visio 12.0 t�r kitapl��</a0> onay kutusunu se�mek i�in t�klat�n.
- Visio 2003 i�in <a0>Microsoft Visio 11.0 t�r kitapl��</a0> onay kutusunu se�mek i�in t�klat�n.
- Visio 2002 i�in <a0>Microsoft Visio 2002 i�in t�r kitapl��</a0> onay kutusunu se�mek i�in t�klat�n.

Microsoft Visio t�r kitapl��na ba�vuru ekledi�inizde, program�n�z�, Microsoft Visio �evrimi�i Yard�m'� ve Visio nesne modeline eri�ebilirsiniz. Ba�vurular� her projede kaydedilmi� oldu�undan, Visio otomatikle�tirmek i�in kullanmak istedi�iniz her Visual Basic'de veya VBA'DA proje Visio t�r kitapl�� ba�vurusunu eklemeniz gerekir.

2. Ad�m: nesne de�i�keni Kernel32.dll'de...

Visio nesne de�i�keni, boyut, Visio.Application, Visio.Documents veya Visio.Page gibi belirli bir Visio nesne t�r� olarak bir de�i�keni bildirmek i�in <a0></a0>.

A��k�a denetleyicisi uygulama ba�lan�r nesne t�r� erken ba�lama adland�r�l�r, ��nk� bildirmek veya ba�lar �al��ma zaman�nda yerine derleme zaman�nda Visio uygulama nesnesi. Visio otomatik listeleri ve i�erik duyarl� Yard�m i�in eri�menizi ve kod daha verimli bir �ekilde �al��mas�na izin verir.

Nesne ba�lama hakk�nda daha fazla bilgi i�in Microsoft Knowledge Base'deki makaleyi g�r�nt�lemek �zere a�a��daki makale numaras�n� t�klat�n:

138138

(http://support.microsoft.com/kb/138138/ )

Ge�, t�rleri m�mk�n VB uygulamalar� i�in erken ba�lama KIMLI�I

A�a��daki �rnek Visual Basic ba��ms�z de�i�keni AppVisio Visio.Application t�r�nde bir nesne olarak bildirir:

   Dim AppVisio as Visio.Application

3. Ad�m: de�i�ken ayarla

Visio etkinle�tirmek i�in a�a��daki iki Visual Basic y�ntemleri kullanabilirsiniz:

CreateObject
GetObject

Birincil CreateObject y�ntemini Visio yeni bir �rne�ini olu�turur ve zaten �al��an �rne�i Visio GetObject y�ntemi kullanan farkt�r. Belirli bir Visio belge, bir nesne de�i�keni ayarlamak i�in GetObject'ni de kullanabilirsiniz.

A�a��daki �rnek ba��ms�z AppVisio de�i�ken CreateObject kullanarak Visio uygulamaya ayarlar i�levi:

   Dim AppVisio as Visio.Application

   Set AppVisio = CreateObject("Visio.Application")

baz� durumlarda, Visio zaten �al��t�ran, ancak Visio �al��r durumda de�ilse, yeni bir �rne�ini olu�turmak, varolan bir Visio �rne�i kullanmak isteyebilirsiniz. Bunu yapmak i�in <a0></a0>, GetObject y�ntemi ba�ar�s�z olay nedeniyle, bu �rnek kodda g�sterildi�i gibi CreateObject y�ntemini kullanan bir hata i�leyicisi olu�turun:

   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

�rnek bir Visio olu�turmak i�in CreateObject i�levini de kullanabilirsiniz Not di�er bir deyi�le g�r�nmez. �rne�in:

Set AppVisio = CreateObject("Visio.InvisibleApp")

sonra �rne�i g�r�n�r olup olmad��n� denetlemek i�in uygulama nesnesinin Visible �zelli�ini kullanabilirsiniz.

CreateObject i�leviyle, InvisibleApp nesnesini kullanabilirsiniz. I�lev ba�ar�s�z olur GetObject ile kullanmaya �al��r. Visio Microsoft Visio 2000'den �nceki s�r�mlerinde InvisibleApp nesne kullan�lam�yor.

4. Ad�m: Visio nesneleri, y�ntemleri ve �zellikleri kullan�n...

1-3 Aras�ndaki ad�mlar� tamamlad�ktan sonra Visio kullanabilece�iniz Visio otomatikle�tirmek i�in bir nesne de�i�keni.

A�a��daki makro �rne�i Otomasyon kullanan Visio ba�latmak i�in temel Diyagram� �ablonu temel alan yeni �izim (belge) olu�turmak i�in bir dikd�rtgen d��nceye, baz� metin ekler ve �izim kaydeder ve Visio sonland�r�l�yor.

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

�ste | Geri Bildirim Ver

Referanslar

Microsoft Visio Developer Web siteleri

Visio otomatikle�tirme hakk�nda daha fazla bilgi i�in a�a��daki Microsoft Web sitesini ziyaret edin:

http://msdn2.microsoft.com/en-us/office/aa905478.aspx

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

Microsoft Visio'nun geli�tirme hakk�nda daha fazla bilgi i�in ��z�m i�in a�a��daki Microsoft Web sitesini ziyaret edin:

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

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

Visio Software Development Kits (ingilizce)

Visio 2002 Software Development Kit'e kar��dan y�klemek i�in a�a��daki Microsoft Web sitesini ziyaret edin:

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)

Visio 2003 Software Development Kit'e kar��dan y�klemek i�in a�a��daki Microsoft Web sitesini ziyaret edin:

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)

Haber gruplar�

E�ler aras� haber a�a��daki uygulamalar i�in Visual Basic kullan�c�lar�yla etkile�imde kullan�labilir:

Microsoft.public.vb.OLE.Automation
Microsoft.public.Visio.Developer.VBA

Visual Basic Yard�m�

Visual Basic D�zenleyicisi'nde, CreateObject i�levini kullanma hakk�nda daha fazla bilgi i�in Yard�m men�s�nde Microsoft Visual Basic Yard�m� ' n� t�klat�n, createobject i�levi, Arama kutusuna yaz�n ve sonra d�nd�r�len konular� g�r�nt�lemek i�in Ara ' y� t�klat�n.

Visual Basic D�zenleyicisi'nde GetObject i�levi kullanma hakk�nda daha fazla bilgi i�in Yard�m men�s�nde Microsoft Visual Basic Yard�m� ' n� t�klat�n, getobject i�levi, Arama kutusuna yaz�n ve sonra d�nd�r�len konular� g�r�nt�lemek i�in Ara ' y� t�klat�n.

�ste | Geri Bildirim Ver

�zellikler

Makale numaras�: 309603 - Son G�zden Ge�irme: 11 Nisan 2007 �ar�amba - G�zden ge�irme: 4.1

Bu makaledeki bilginin uyguland�� durum:

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

kbmt kbautomation kbprogramming kbvba kbhowto KB309603 KbMttr

Otomatik Terc�me

�NEML�: Bu makale, bir ki�i taraf�ndan �evrilmek yerine, Microsoft makine-�evirisi yaz�l�m� ile �evrilmi�tir. Microsoft size hem ki�iler taraf�ndan �evrilmi�, hem de makine-�evrisi ile �evrilmi� makaleler sunar. B�ylelikle, bilgi bankam�zdaki t�m makalelere, kendi dilinizde ula�m�� olursunuz. Bununla birlikte, makine taraf�ndan �evrilmi� makaleler m�kemmel de�ildir. Bir yabanc�n�n sizin dilinizde konu�urken yapabilece�i hatalar gibi, makale; kelime da�arc��, s�z dizim kurallar� veya dil bilgisi a��s�ndan yanl��lar i�erebilir. Microsoft, i�eri�in yanl�� evrimi veya onun m��teri taraf�ndan kullan�m�ndan do�an; kusur, hata veya zarardan sorumlu de�ildir. Microsoft ayr�ca makine �evirisi yaz�l�m�n� s�k�a g�ncellemektedir.

Makalenin �ngilizcesi a�a��daki gibidir:309603

(http://support.microsoft.com/kb/309603/en-us/ )

�ste | Geri Bildirim Ver