Page.ReviewerID-Eigenschaft (Visio)

Ruft die Bearbeiter-ID ab, die mit der Markupüberlagerung verknüpft ist. Schreibgeschützt.

Syntax

Ausdruck. ReviewerID

Ausdruck Eine Variable, die ein Page-Objekt darstellt.

Rückgabewert

Long

Hinweise

Die ReviewerID-Eigenschaft gilt nur für Markupüberlagerungen. Um festzustellen, ob eine Seite eine Markupüberlagerung ist, überprüfen Sie, ob Page.Type = visTypeMarkup (3) ist. Wenn Sie versuchen, den ReviewerID-Wert für Vordergrundseiten und für Hintergrundseiten abzurufen, die keine Markupüberlagerungen sind, gibt Microsoft Visio einen Fehler zurück.

Die von der ReviewerID-Eigenschaft zurückgegebene Prüfer-ID entspricht einer der Zeilen im Abschnitt Reviewer des ShapeSheets des Dokuments. Die ShapeSheet-Zelle, die die Prüfer-ID enthält, ist auf der ShapeSheet-Benutzeroberfläche des Dokuments ausgeblendet, aber Sie können den Benutzernamen und die Initialen bestimmen, die jeder Prüfer-ID zugeordnet sind, indem Sie die Document.DocumentSheet.CellsSRC-Eigenschaft der Seite verwenden. Sehen Sie sich das folgende Beispiel an.

Hinweis

Um das ShapeSheet eines Dokuments anzuzeigen, wählen Sie auf der Registerkarte Entwicklertoolszeichnungsbasierte Explorer aus, klicken Sie mit der rechten Maustaste auf den Namen des Dokuments, und klicken Sie dann auf ShapeSheet anzeigen.

Beispiel

Dieses VBA-Makro (Microsoft Visual Basic for Applications) verwendet die ReviewerID-Eigenschaft, um die ID des Prüfers abzurufen, der einer Markupüberlagerung zugeordnet ist, und gibt dann den Namen des Prüfers im Direktfenster aus. Zunächst wird bestimmt, ob das aktive Zeichenblatt eine Markupüberlagerung ist, und falls ja, wird die Bearbeiter-ID abgerufen. Bevor Sie dieses Makro ausführen, sollten Sie sicherstellen, dass im Visio-Zeichnungsfenster ein Zeichenblatt aktiv ist.

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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.