Propriété Page.ReviewerID (Visio)

Récupère l’ID relecteur associé à la superposition des marques de révision. En lecture seule.

Syntaxe

expression. ReviewerID

Expression Variable qui représente un objet Page .

Valeur renvoyée

Entier long

Remarques

La propriété ReviewerID n’est valide que pour les superpositions des marques de révision. Pour déterminer si une page est une superposition de balisage, vérifiez si Page.Type = visTypeMarkup (3). Si vous essayez d’obtenir la valeur ReviewerID pour les pages de premier plan et pour les pages d’arrière-plan qui ne sont pas des superpositions de balisage, Microsoft Visio renvoie une erreur.

L'ID relecteur renvoyé par la propriété ReviewerID correspond à l'une des lignes de la section Reviewer de la feuille ShapeSheet du document. La cellule de feuille ShapeSheet qui contient l'ID relecteur est masquée dans l'interface utilisateur de la feuille ShapeSheet du document, mais vous pouvez déterminer le nom et les initiales de l'utilisateur associés à chaque ID relecteur en utilisant la propriété Document.DocumentSheet.CellsSRC de la page. Reportez-vous à l'exemple suivant.

Remarque

Pour afficher la Feuille ShapeSheet d’un document, sous l’onglet Développeur , sélectionnez Explorateur de dessins, cliquez avec le bouton droit sur le nom du document, puis cliquez sur Afficher la feuille ShapeSheet.

Exemple

Cette macro Microsoft Visual Basic pour Applications (VBA) utilise la propriété ReviewerID pour obtenir l’ID du réviseur associé à une superposition de balisage, puis imprime le nom du réviseur dans la fenêtre Exécution. Elle détermine d'abord si la page active est une superposition des marques de révision, et, si tel est le cas, récupère l'ID relecteur. Avant d'exécuter cette macro, vérifiez qu'une page de dessin active se trouve dans la fenêtre de dessin Visio.

Public Sub ReviewerID_Example() 
 Dim vsoPage As Visio.Page 
 Dim intCounter As Integer 
 
 Set vsoPage = ActivePage 
 
 If vsoPage.Type = visTypeMarkup Then 
 
 For intCounter = 0 To vsoPage.Document.DocumentSheet.RowCount(visSectionReviewer) - 1 
 
 If vsoPage.ReviewerID = vsoPage.Document.DocumentSheet.CellsSRC(visSectionReviewer, visRowReviewer + intCounter, visReviewerReviewerID).ResultStr(0) Then 
 
 Debug.Print "Reviewer name is: "; vsoPage.Document.DocumentSheet.CellsSRC(visSectionReviewer, visRowReviewer + intCounter, visReviewerName).ResultStr(0) 
 
 End If 
 
 Next intCounter 
 
 Else 
 
 Debug.Print "Active page is not a markup overlay." 
 
 End If 
 
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.