Partilhar via

Propriedade Page.OriginalPage (Visio)

  • Artigo

Retorna o objeto Page que representa a página de desenho original do Microsoft Visio que foi marcada em sobreposições de marcação separadas pelos revisores do desenho. Somente leitura.

Sintaxe

expression. OriginalPage

Expressão Uma variável que representa um objeto Page .

Valor de retorno

Page

Comentários

Se o objeto pai Page não for uma sobreposição de marcação, OriginalPage retorna um erro. Para determinar se uma página é uma sobreposição de marcação, verifique se Page.Type = visTypeMarkup (3).

Quando um usuário clica em Rastrear Marcação, o Visio cria uma nova página do tipo visTypeMarkup. A página original possui o tipo visTypeForeground ou visTypeBackground. Cada sobreposição de marcação está associada a uma única página de desenho original.

Exemplo

Esta macro do Microsoft Visual Basic for Applications (VBA) usa a propriedade OriginalPage para obter o nome da página original que foi marcada em uma sobreposição de marcação e exibi-la na janela Imediata. Antes de executar essa macro, verifique se uma página de desenho é exibida na janela ativa.

Public Sub OriginalPage_Example() 
 
 'Turn on Track Markup to make a markup overlay the active page. 
 Application.ActiveDocument.DocumentSheet.CellsSRC(visSectionObject, visRowDoc, visDocAddMarkup).FormulaU = True 
 
 'Display the name of the original page that currently is being marked up. 
 Debug.Print ActivePage.OriginalPage.Name 
 
End Sub

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.