Propriété Page.OriginalPage (Visio)

Renvoie l’objet Page qui représente la page de dessin Microsoft Visio d’origine qui a été marquée sur des superpositions de balisage distinctes par les réviseurs du dessin. En lecture seule.

Syntaxe

expression. OriginalPage

Expression Variable qui représente un objet Page .

Valeur renvoyée

Page

Remarques

Si l'objet parent Page n'est pas une superposition de marques de révision, OriginalPage renvoie une erreur. Pour déterminer si une page est une superposition de balisage, vérifiez si Page.Type = visTypeMarkup (3).

Lorsqu'un utilisateur clique sur Suivi des révisions, Visio crée une nouvelle page de type visTypeMarkup. La page d'origine dispose du type visTypeForeground ou visTypeBackground. Chaque superposition de marques de révision est associée à une seule page de dessin d'origine.

Exemple

Cette macro Microsoft Visual Basic pour Applications (VBA) utilise la propriété OriginalPage pour obtenir le nom de la page d’origine marquée sur une superposition de balisage et l’afficher dans la fenêtre Exécution. Avant d’exécuter cette macro, assurez-vous qu’une page de dessin s’affiche dans la fenêtre active.

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

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.