Cómo imprimir comentarios insertados por los revisores cuando se usa la característica Seguimiento de marcado en Visio 2010, en Visio 2007 o en Visio 2003

INTRODUCCIÓN

En este artículo se describe una macro que puede usar para imprimir comentarios insertados por revisores. Puede usar esta macro cuando use la característica Seguimiento de marcado en Microsoft Visio 2010, en Microsoft Office Visio 2007 o en Microsoft Office Visio 2003.

Más información

Cuando se usa la característica Seguimiento de marcado en Visio, los usuarios que revisan el dibujo pueden agregar cambios propuestos. Los cambios propuestos también se conocen como marcado. El marcado incluye formas, formas de lápiz y comentarios. Al imprimir un dibujo que contiene marcado, no se imprimen los comentarios insertados por los revisores. Use la macro que se describe en este artículo para imprimir los comentarios insertados por los revisores.

La macro extrae los comentarios que se encuentran en el dibujo y, a continuación, inserta los comentarios en una nueva forma. La nueva forma aparece fuera de la página de dibujo. Cambie el tamaño de la forma y arrastre la forma a la página de dibujo. Al imprimir el dibujo, los comentarios aparecen en la nueva forma que agregó al dibujo.

Para crear y ejecutar la macro, siga estos pasos.

Microsoft proporciona ejemplos de programación con fines ilustrativos únicamente, sin ninguna garantía, ya sea expresa o implícita. Esto incluye, entre otras, las garantías implícitas de comerciabilidad e idoneidad para un fin determinado. Se considera que está familiarizado con el lenguaje de programación que se muestra y con las herramientas para crear y depurar procedimientos. Los ingenieros de soporte técnico de Microsoft pueden explicarle la funcionalidad de un determinado procedimiento, pero no modificarán estos ejemplos para ofrecer mayor funcionalidad ni crearán procedimientos adaptados a sus necesidades específicas.

1. Cree la macro. Para ello, siga estos pasos:

   1. Inicie Visio y, a continuación, abra el dibujo.

   2. Presione ALT+F11 para iniciar el Editor de Microsoft Visual Basic.

   3. En el menú **Insertar **, haga clic en Módulo.

   4. Copie el código siguiente y pegue el código en la ventana NombreDeArchivo -Número de 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. Presione CTRL+S para guardar el dibujo.

   6. En el menú Archivo , haga clic en Cerrar y volver a Visio.

2. Ejecute la macro. Para ello, siga estos pasos:

   1. En el menú Herramientas , seleccione Macros y, a continuación, haga clic en Macros.
   2. En la lista Nombre de macro, haga clic en la macro que creó en el paso 1 y, a continuación, haga clic en Ejecutar. El nombre de la macro es FileName. Número de módulo. GetComments.

   La macro inserta los comentarios en una nueva forma que aparece a la izquierda de la página de dibujo.

3. Cambie el tamaño de la forma que contiene los comentarios y arrastre la forma a la página de dibujo. Si lo desea, dé formato al texto de la forma. Al imprimir el dibujo, los comentarios aparecen en la forma del dibujo.