Makale numaras�: 898514 - Son G�zden Ge�irme: 13 May�s 2010 Per�embe - G�zden ge�irme: 5.0

Visio 2010, Visio 2007 veya Visio 2003'te izleme bi�imlendirme �zelli�ini kulland��n�zda, g�zden ge�iriciler taraf�ndan eklenen a��klamalar� yazd�rmak i�in:

�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.

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

Bu makalenin ge�erli oldu�u �r�nleri g�r�n.

Sistem �pucuBu makale, kulland��n�zdan farkl� bir i�letim sistemine y�neliktir. Sizinle ilgili olmayabilecek makale i�eri�i devre d�� b�rak�ld�.

Hepsini a� | Hepsini kapa

Giri�

Bu makalede, bir makro g�zden ge�iriciler taraf�ndan eklenen a��klamalar� yazd�rmak i�in kullanabilirsiniz. Microsoft Visio 2010, Microsoft Office Visio 2007 veya Microsoft Office Visio 2003'te izleme bi�imlendirme �zelli�ini kulland��n�zda, bu makroyu kullanabilirsiniz.

Daha fazla bilgi

Visio'da izleme bi�imlendirme �zelli�ini kulland��n�zda, �izimi g�zden kullan�c�lar �nerilen de�i�iklikleri ekleyebilirsiniz. �nerilen de�i�iklikleri bi�imlendirme de verilir. Sair gider, �ekiller, m�rekkep �ekillerini ve a��klamalar� i�erir. G�zden ge�irenler taraf�ndan eklenen a��klamalar, bi�imlendirme i�eren �izim yazd�rd��n�zda yazd�r�lmaz. G�zden ge�irenler taraf�ndan eklenen a��klamalar� yazd�rmak i�in bu makalede anlat�lan makro kullan�n.

Makro, �izim, Yorumlar'� ay�klayan, ard�ndan da Yorumlar yeni �eklinde ekler. Yeni �ekli, �izim sayfa d��nda g�r�n�r. �ekli yeniden boyutland�rma ve �ekil �izim sayfas�na s�r�kleyin. �izim yazd�rd��n�zda, a��klamalar� i�in �izim ekledi�iniz yeni �ekli g�r�n�r.

Olu�turma ve makroyu �al��t�rmak i�in a�a��daki ad�mlar� izleyin.

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.

Makroyu olu�turun. Bunu yapmak i�in �u ad�mlar� izleyin:

Visio ba�lat�n ve sonra da �iziminizi a��n.
Microsoft Visual Basic D�zenleyicisi'ni ba�latmak i�in ALT + F11 tu�lar�na bas�n.
Ekle men�s�nden mod�l� ' n� t�klat�n.

A�a��daki kodu kopyalay�n ve FileName - mod�l Number (kod) penceresinde kodu yap��t�r�n:

Public Sub GetComments()
Dim pagMarkup As Visio.Page
Dim pag As Visio.Page
Dim shp As Visio.Shape
Dim sText As String
Dim iRow As Integer

Set pag = Visio.ActivePage
sText = "Reviewer" & vbTab & "Date" & vbTab & "Comment"

If pag.PageSheet.SectionExists(Visio.visSectionAnnotation, Visio.visExistsAnywhere) Then
For iRow = 0 To pag.PageSheet.RowCount(Visio.visSectionAnnotation) - 1
sText = sText & vbCrLf & pag.Document.DocumentSheet.CellsSRC(Visio.visSectionReviewer, pag.PageSheet.CellsSRC(Visio.visSectionAnnotation, iRow, Visio.visAnnotationReviewerID).ResultIU - 1, Visio.visReviewerInitials).ResultStr("")
sText = sText & pag.PageSheet.CellsSRC(Visio.visSectionAnnotation, iRow, Visio.visAnnotationMarkerIndex).ResultIU
sText = sText & vbTab & Format(pag.PageSheet.CellsSRC(Visio.visSectionAnnotation, iRow, Visio.visAnnotationDate).ResultIU, "ddddd")
sText = sText & vbTab & pag.PageSheet.CellsSRC(Visio.visSectionAnnotation, iRow, Visio.visAnnotationComment).ResultStr("")
Next iRow
End If

For Each pagMarkup In pag.Document.Pages
If pagMarkup.Type = visTypeMarkup Then
If pagMarkup.OriginalPage = pag Then
If pagMarkup.PageSheet.SectionExists(Visio.visSectionAnnotation, Visio.visExistsAnywhere) Then
sText = sText & vbCrLf
sText = sText & vbCrLf & pag.Document.DocumentSheet.CellsSRC(Visio.visSectionReviewer, pagMarkup.ReviewerID - 1, Visio.visReviewerName).ResultStr("")
For iRow = 0 To pagMarkup.PageSheet.RowCount(Visio.visSectionAnnotation) - 1
sText = sText & vbCrLf & pag.Document.DocumentSheet.CellsSRC(Visio.visSectionReviewer, pagMarkup.PageSheet.CellsSRC(Visio.visSectionAnnotation, iRow, Visio.visAnnotationReviewerID).ResultIU - 1, Visio.visReviewerInitials).ResultStr("")
sText = sText & pagMarkup.PageSheet.CellsSRC(Visio.visSectionAnnotation, iRow, Visio.visAnnotationMarkerIndex).ResultIU
sText = sText & vbTab & Format(pagMarkup.PageSheet.CellsSRC(Visio.visSectionAnnotation, iRow, Visio.visAnnotationDate).ResultIU, "ddddd")
sText = sText & vbTab & pagMarkup.PageSheet.CellsSRC(Visio.visSectionAnnotation, iRow, Visio.visAnnotationComment).ResultStr("")
Next iRow
End If
End If
End If
Next pagMarkup

Dim iAutoSize as Integer 'new
iAutoSize = pag.AutoSize 'new
pag.AutoSize = 0 'new
Set shp = pag.DrawRectangle(-pag.PageSheet.Cells("PageWidth").ResultIU, 0, 0, pag.PageSheet.Cells("PageHeight").ResultIU)
pag.AutoSize = iAutoSize 'new
shp.AddSection visSectionUser 'new
shp.AddNamedRow visSectionUser, "msvNoAutoSize", visTagDefault 'new
shp.CellsU("User.msvNoAutoSize").FormulaU = 1 'new
shp.Cells("Para.HorzAlign").Formula = "0"
shp.Cells("VerticalAlign").Formula = "0"
shp.Name = "Reviewers Comments"
shp.Text = sText
End Sub

�izim kaydetmek i�in CTRL + S tu�lar�na bas�n.
Dosya men�s�nde Kapat ve d�n Visio i�in t�klat�n.

Makroyu �al��t�r�n. Bunu yapmak i�in �u ad�mlar� izleyin:
1. Ara�lar men�s�nden makrolar ' �n �zerine gelin ve makrolar ' � t�klat�n.
2. Makro ad� listesinde, 1. ad�mda olu�turdu�unuz bir makroyu t�klat�n ve sonra da <a2>�al��t�r</a2>'� t�klat�n. FileName .Module Number .GetComments makronun ad�d�r.
  
  Makro �izim sayfan�n solunda g�r�nen yeni �eklinde yorumlar ekler.
A��klamalar� i�eren �ekli yeniden boyutland�rma ve �ekli �izim sayfas�na s�r�kleyin. Isterseniz, �eklin i�indeki metni bi�imlendirebilirsiniz. �iziminizi yazd�rd��n�zda, �iziminizi �eklinde yorumlar g�r�nt�lenir.

Bu makaledeki bilginin uyguland�� durum:

Microsoft Visio Premium 2010
Microsoft Visio Standard 2010
Microsoft Visio Professional 2010
Microsoft Office Visio Professional 2007
Microsoft Office Visio Standard 2007
Microsoft Office Visio Professional 2003
Microsoft Office Visio Standard 2003

�ste

kbmt kbdisplay kbprint kbinfo kbhowto KB898514 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:898514� (http://support.microsoft.com/kb/898514/en-us/ )

�ste

This site in other countries/regions:

Visio 2010, Visio 2007 veya Visio 2003'te izleme bi�imlendirme �zelli�ini kulland��n�zda, g�zden ge�iriciler taraf�ndan eklenen a��klamalar� yazd�rmak i�in:

Giri�

Daha fazla bilgi

Bu makaledeki bilginin uyguland�� durum:

Anahtar Kelimeler:�

Di�er Destek Siteleri

Topluluk

Hemen Yard�m Al

Makale �evirileri

�lgili Destek Merkezleri

This site in other countries/regions:

Visio 2010, Visio 2007 veya Visio 2003'te izleme bi�imlendirme �zelli�ini kulland���n�zda, g�zden ge�iriciler taraf�ndan eklenen a��klamalar� yazd�rmak i�in:

Giri�

Daha fazla bilgi

Bu makaledeki bilginin uyguland��� durum:

Anahtar Kelimeler:�

Di�er Destek Siteleri

Topluluk

Hemen Yard�m Al

Makale �evirileri

�lgili Destek Merkezleri

Visio 2010, Visio 2007 veya Visio 2003'te izleme bi�imlendirme �zelli�ini kulland��n�zda, g�zden ge�iriciler taraf�ndan eklenen a��klamalar� yazd�rmak i�in:

Bu makaledeki bilginin uyguland�� durum: