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.

  1. Makroyu oluşturun. Bunu yapmak için şu adımları uygulayın:

    1. Visio'yu başlatın ve çiziminizi açın.

    2. Microsoft Visual Basic Düzenleyicisi'ni başlatmak için ALT+F11 tuşlarına basın.

    3. **Ekle ** menüsünde Modül'e tıklayın.

    4. 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
      
    5. Çizimi kaydetmek için CTRL+S tuşlarına basın.

    6. Dosya menüsünde Kapat ve Visio'ya Dön'e tıklayın.

  2. Makroyu çalıştırın. Bunu yapmak için şu adımları uygulayın:

    1. Araçlar menüsünde Makrolar'ın üzerine gelin ve Makrolar'a tıklayın.
    2. 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.

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