共用方式為

Visio (的 Page.ReviewerID 屬性)

  • 發行項

取得與標記覆疊相關的檢閱者識別碼。 唯讀。

語法

expression。 ReviewerID

表達 代表 Page 物件的變數。

傳回值

Long

註解

ReviewerID 屬性只對於標記覆疊有效。 若要判斷頁面是否為標記重迭，請檢查Page.Type = visTypeMarkup是否 (3) 。 如果您嘗試取得前景頁面和非標記重迭之背景頁面的 ReviewerID 值，Microsoft Visio 會傳回錯誤。

ReviewerID 屬性所傳回的檢閱者識別碼，會與文件 ShapeSheet 中 [檢閱者] 區段內的其中一個資料列對應。 包含檢閱者識別碼的 ShapeSheet 儲存格會隱藏在文件的 ShapeSheet 使用者介面中，但您可以使用頁面的 Document.DocumentSheet.CellsSRC 屬性，判斷與每個檢閱者識別碼相關的使用者名稱和縮寫。 請參閱下列範例。

注意事項

若要檢視檔的 ShapeSheet，請在 [ 開發人員 ] 索引標籤上選取 [ 繪圖總管]，以滑鼠右鍵按一下檔的名稱，然後按一下 [ 顯示 ShapeSheet]。

範例

這個 Microsoft Visual Basic for Applications (VBA) 宏會使用 ReviewerID 屬性來取得與標記重迭相關聯之檢閱者的識別碼，然後在 [即時運算] 視窗中列印檢閱者的名稱。 它會先判斷使用中的頁面是否為標記覆疊，如果是，便會取得檢閱者的識別碼。 在執行這個巨集之前，請確定 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

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。