Visio 2010, Visio 2007 veya Visio 2003'te İşaretlemeyi İzle özelliğini kullandığınızda gözden geçirenler tarafından eklenen açıklamaları yazdırma
GİRİŞ
Bu makalede, gözden geçirenler tarafından eklenen açıklamaları yazdırmak için kullanabileceğiniz bir makro açıklanmaktadır. Microsoft Visio 2010, Microsoft Office Visio 2007 veya Microsoft Office Visio 2003'te Biçimlendirmeyi İzle özelliğini kullanırken bu makroyu kullanabilirsiniz.
Daha Fazla Bilgi
Visio'da İşaretlemeyi İzle özelliğini kullandığınızda, çizimi gözden geçiren kullanıcılar önerilen değişiklikleri ekleyebilir. Önerilen değişiklikler işaretleme olarak da bilinir. İşaretlemeyi şekiller, mürekkep şekilleri ve açıklamalar içerir. İşaretlemeyi içeren bir çizimi yazdırdığınızda, gözden geçirenler tarafından eklenen açıklamalar yazdırılmaz. Gözden geçirenler tarafından eklenen açıklamaları yazdırmak için bu makalede açıklanan makroyu kullanın.
Makro, çizimdeki açıklamaları ayıklar ve sonra açıklamaları yeni bir şekle ekler. Yeni şekil çizim sayfasının dışında görünür. Şekli yeniden boyutlandırın ve sonra şekli çizim sayfasına sürükleyin. Çizimi yazdırdığınızda, açıklamalar çizime eklediğiniz yeni şekilde görünür.
Makroyu oluşturmak ve ç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 zımni garantiler, satılabilirlik veya belirli bir amaca uygunluk da 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ı uygulayın:
Visio'yu başlatın ve çiziminizi açın.
Microsoft Visual Basic Düzenleyicisi'ni başlatmak için ALT+F11 tuşlarına basın.
**Ekle ** menüsünde Modül'e tıklayın.
Aşağıdaki kodu kopyalayın ve ardından kodu FileName - ModülNumarası (Kod) penceresine 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
Çizimi kaydetmek için CTRL+S tuşlarına basın.
Dosya menüsünde Kapat ve Visio'ya Dön'e tıklayın.
Makroyu çalıştırın. Bunu yapmak için şu adımları uygulayın:
- Araçlar menüsünde Makrolar'ın üzerine gelin ve Makrolar'a tıklayın.
- Makro adı listesinde, 1. adımda oluşturduğunuz makroya tıklayın ve ardından Çalıştır'a tıklayın. Makronun adı FileName'dir. ModülNumarası. GetComments.
Makro, açıklamaları çizim sayfasının solunda görünen yeni bir şekle ekler.
Açıklamaları içeren şekli yeniden boyutlandırın ve sonra şekli çizim sayfasına sürükleyin. İstersen, şekildeki metni biçimlendirin. Çiziminizi yazdırdığınızda, açıklamalar çiziminizdeki şekilde görünür.