ID do artigo: 898514 - Última revisão: quinta-feira, 13 de maio de 2010 - Revisão: 5.0

Como imprimir comentários são inseridos pelos revisores quando você usa o recurso controlar marcação em 2010 do Visio, no Visio 2007 ou no Visio 2003

Vista lado a ladoClique aqui para exibir o artigo traduzido e o artigo original em inglês, lado a lado.
Tradução automáticaExibir Aviso de Isenção de Tradução Automática
Exibir os produtos aos quais esse artigo se aplica.
Dica do SistemaEste artigo aplica-se a um sistema operativo diferente do que está a utilizar. Foi desactivado o conteúdo do artigo, que pode não ser relevante para si.
Expandir tudo | Recolher tudo

INTRODUÇÃO

Este artigo descreve uma macro que você pode usar para imprimir os comentários são inseridos pelos revisores. Você pode usar essa macro quando você usa o recurso controlar marcação em 2010 do Microsoft Visio, no Microsoft Office Visio 2007 ou no Microsoft Office Visio 2003.

Mais Informações

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

A macro extrai os comentários que estão no desenho e, em seguida, insere os comentários de uma nova forma. A nova forma é exibida fora da página de desenho. Redimensionar a forma e arraste a forma à página de desenho. Quando você imprimir o desenho, os comentários aparecem na nova forma adicionada ao desenho.

Para criar e executar a macro, siga estas etapas.

Microsoft fornece exemplos de programação apenas para ilustração, sem garantia expressa ou implícita. Isso inclui, mas não está limitado a garantias implícitas de comercialização ou adequação a um propósito específico. Este artigo presume que você esteja familiarizado com a linguagem de programação que está sendo demonstrada e também as ferramentas usadas para criar e depurar procedimentos. Os engenheiros de suporte da Microsoft podem ajudar a explicar a funcionalidade de um determinado procedimento, mas eles não modificarão esses exemplos para fornecer funcionalidades adicionais ou construir procedimentos para atender às suas necessidades específicas.
  1. Crie a macro. Para fazer isso, execute as seguintes etapas:
    1. Inicie o Visio e, em seguida, abra o desenho.
    2. Pressione ALT+F11 para iniciar o Microsoft Visual Basic Editor.
    3. No menu Inserir, clique em módulo.
    4. Copie o código a seguir e, em seguida, cole o código em FileName - janela módulo Number (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, execute as seguintes etapas:
    1. No menu Ferramentas, aponte para macro e clique em macros.
    2. Na lista nome da macro, clique na macro que você criou na etapa 1 e, em seguida, clique em Executar. O nome da macro é FileName .Module Number .GetComments.

      A macro insere comentários em uma nova forma é exibido à esquerda da página de desenho.
  3. Redimensionar a forma que contém os comentários e, em seguida, arraste a forma à página de desenho. Se desejar, formate o texto da forma. Quando você imprimir o desenho, os comentários são exibidos na forma no desenho.
A informação contida neste artigo aplica-se a:
  • 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
Voltar para o início
Palavras-chave: 
kbmt kbdisplay kbprint kbinfo kbhowto KB898514 KbMtpt
Tradução automáticaTradução automática
IMPORTANTE: Este artigo foi traduzido por um sistema de tradução automática (também designado por Machine Translation ou MT), não tendo sido portanto traduzido ou revisto por pessoas. A Microsoft possui artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais, com o objetivo de oferecer em português a totalidade dos artigos existentes na base de dados de suporte. No entanto, a tradução automática não é sempre perfeita, podendo conter erros de vocabulário, sintaxe ou gramática. A Microsoft não é responsável por incoerências, erros ou prejuízos ocorridos em decorrência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza atualizações freqüentes ao software de tradução automática (MT). Obrigado.
Clique aqui para ver a versão em Inglês deste artigo: 898514  (http://support.microsoft.com/kb/898514/en-us/ )
Voltar para o início