Artigo: 898514 - Última revisão: quinta-feira, 13 de Maio de 2010 - Revisão: 5.0

Como imprimir comentários inseridos por revisores quando utiliza a funcionalidade <a0>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áticaVer isenção de responsabilidades para tradução automática
Ver produtos para os quais este 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 | Reduzir tudo

INTRODUÇÃO

Este artigo descreve uma macro que pode utilizar para imprimir os comentários são inseridos pelos revisores. Pode utilizar esta macro quando utilizar a funcionalidade <a0>controlar marcação no Microsoft Visio 2010, no Microsoft Office Visio 2007 ou no Microsoft Office Visio 2003.

Mais Informação

Quando utiliza a funcionalidade <a0>controlar marcação no Visio, os utilizadores que rever o desenho podem adicionar as alterações propostas. As alterações propostas são também conhecidas como marcação. Marcação inclui formas, tinta e comentários. Quando imprime um desenho que contém código, os comentários inseridos por revisores não são impressos. Utilize a macro abordada 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 numa forma nova. A nova forma aparece fora da página de desenho. Redimensionar a forma e, em seguida, arraste a forma para a página de desenho. Quando imprimir o desenho, os comentários aparecem na nova forma que adicionou ao desenho.

Para criar e executar a macro, siga estes passos.

Microsoft fornece exemplos de programação apenas a título informativo, sem garantia expressa ou implícita. Isto inclui, mas não está limitado a, garantias implícitas de comercialização ou adequação a um fim específico. Este artigo pressupõe que está familiarizado com a linguagem de programação apresentada e as ferramentas que são utilizadas para criar e depurar procedimentos. Os engenheiros de suporte da Microsoft podem ajudar a explicar a funcionalidade de um determinado procedimento, mas não modificarão estes exemplos para proporcionarem funcionalidades adicionais nem criarão procedimentos adaptados às necessidades específicas do utilizador.
  1. Crie a macro. Para tal, siga estes passos:
    1. Inicie o Visio e, em seguida, abra o desenho.
    2. Prima ALT+F11 para iniciar o Microsoft Visual Basic Editor.
    3. No menu Inserir, clique em <a1>módulo</a1>.
    4. Copie o código que se segue e, em seguida, cole o código em FileName - janela de módulo de Number (prefixo): 
      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. Prima CTRL+G para guardar o desenho.
    6. No menu ficheiro, clique em Fechar e regressar a Visio.
  2. Execute a macro. Para tal, siga estes passos:
    1. No menu Ferramentas, aponte para macros e, em seguida, clique em macros.
    2. Na lista nome da macro, clique na macro que criou no passo 1 e, em seguida, clique em Executar. O nome da macro é FileName .Module Number .GetComments.

      A macro insere os comentários de uma nova forma que aparece à esquerda da página de desenho.
  3. Redimensionar a forma que contém os comentários e, em seguida, arraste a forma para a página de desenho. Se pretender, formate o texto na forma. Quando imprimir o desenho, os comentários aparecem 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 ao topo
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 revisto ou traduzido por humanos. A Microsoft tem artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais. O objectivo é simples: oferecer em Português a totalidade dos artigos existentes na base de dados do suporte. Sabemos no entanto que a tradução automática não é sempre perfeita. Esta pode conter erros de vocabulário, sintaxe ou gramática? erros semelhantes aos que um estrangeiro realiza ao falar em Português. A Microsoft não é responsável por incoerências, erros ou estragos realizados na sequência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza actualizações frequentes 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 ao topo