Como imprimir comentários inseridos pelos revisores ao usar o recurso Acompanhar Marcação no Visio 2010, no Visio 2007 ou no Visio 2003

INTRODUÇÃO

Este artigo descreve uma macro que você pode usar para imprimir comentários inseridos pelos revisores. Você pode usar essa macro ao usar o recurso Acompanhar Marcação no Microsoft Visio 2010, no Microsoft Office Visio 2007 ou no Microsoft Office Visio 2003.

Informações adicionais

Quando você usa o recurso Acompanhar Marcação no Visio, os usuários que revisam o desenho podem adicionar alterações propostas. As alterações propostas também são conhecidas como marcação. A marcação inclui formas, formas de tinta e comentários. Quando você imprime um desenho que contém marcação, os comentários inseridos pelos revisores não são impressos. Use a macro discutida neste artigo para imprimir os comentários inseridos pelos revisores.

A macro extrai os comentários que estão no desenho e insere os comentários em uma nova forma. A nova forma aparece fora da página de desenho. Redimensione a forma e arraste a forma para a página de desenho. Quando você imprime o desenho, os comentários aparecem na nova forma que você adicionou ao desenho.

Para criar e executar a macro, siga estas etapas.

A Microsoft oferece exemplos de programação somente para ilustração, sem garantias expressas ou implícitas. Isso inclui, mas não está limitado a, as garantias implícitas de qualidade comercial ou conformidade para uma determinada finalidade. Este artigo supõe que você conhece a linguagem de programação que está sendo demonstrada e as ferramentas usadas nos processos de criação e depuração. Os engenheiros de suporte da Microsoft podem ajudá-lo, fornecendo a explicação da funcionalidade de determinado procedimento, mas não modificarão estes exemplos para fornecer funcionalidade adicional nem criarão procedimentos específicos para atender às suas necessidades específicas.

1. Crie a macro. Para fazer isso, siga estas etapas:

   1. Inicie o Visio e abra o desenho.

   2. Pressione Alt+F11 para iniciar o Editor do Microsoft Visual Basic.

   3. No menu **Inserir **, clique em Módulo.

   4. Copie o código a seguir e cole o código na janela FileName – Númerodo Módulo (Código):

      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. Pressione Ctrl+S para salvar o desenho.

   6. No menu Arquivo , clique em Fechar e Retornar ao Visio.

2. Execute a macro. Para fazer isso, siga estas etapas:

   1. No menu Ferramentas , aponte para Macros e clique em Macros.
   2. Na lista de nomes de macro, clique na macro que você criou na etapa 1 e clique em Executar. O nome da macro é FileName. Númerodo Módulo. GetComments.

   A macro insere os comentários em uma nova forma que aparece à esquerda da página de desenho.

3. Redimensione a forma que contém os comentários e arraste a forma para a página de desenho. Se desejar, formate o texto na forma. Quando você imprime o desenho, os comentários aparecem na forma do desenho.