文章編號: 898514 - 上次校閱: 2010年5月13日 - 版次: 5.0

如何列印時在 Visio 2010、 在 Visio 2007 或在 Visio 2003 中，使用 [追蹤標記] 功能插入檢閱者的註解

中英文對照顯示按一下這裡顯示機器翻譯的中英文對照
機器翻譯檢視機器翻譯免責聲明
檢視此文章適用的產品。
系統提示本文適用於您使用的作業系統之外的作業系統。與您不相關的文章內容已停用。
全部展開 | 全部摺疊

簡介

本文將告訴您，您可以使用來列印插入的檢閱者的註解的巨集。當您使用 [追蹤標記] 功能，在 Microsoft Visio 2010、 Microsoft Office Visio 2007 或 Microsoft Office Visio 2003 時，您可以使用此巨集。

其他相關資訊

當您在 Visio 中使用 [追蹤標記] 功能時，檢閱繪圖的使用者可以新增提議的變更。建議的變更也就是所謂的標記。標記包含圖形]、 [筆跡圖形] 和 [註解。 當您列印包含標記繪圖時，插入檢閱者的註解不會列印出來。使用巨集來列印插入檢閱者的註解本文中討論。

巨集擷取在繪圖中的註解，並再插入新的圖形中的 [註解。新的圖案會出現超出繪圖頁。 調整圖形]，然後將圖形拖曳到繪圖頁。 當您列印繪圖時，註解便會出現在新加入繪圖的圖形。

若要建立並執行該巨集請依照下列步驟執行。

Microsoft 僅，為了說明提供程式設計範例，不提供任何明示或默示的保證。這包括，但不限於適售性或適合某特定用途之默示擔保責任。本文假設您已熟悉使用我們所示範的程式設計語言以及建立和偵錯程序所使用的工具。Microsoft 技術支援工程師可以協助解釋特定程序的功能，但它們不會修改這些範例以提供附加功能或建構程序，以符合您特定需求。
  1. 建立巨集。要這麼做，請您執行下列步驟：
    1. 開始使用 Visio，然後開啟您的繪圖。
    2. 按下 ALT + F11 即可啟動 Microsoft Visual Basic 編輯器]。
    3. 在 插入] 功能表上按一下 [模組]。
    4. 複製下列程式碼，並將程式碼貼在 FileName-單元 Number (程式碼)] 視窗中：
      Public Sub GetComments()
Dim pagMarkup As Visio.Page
Dim pag As Visio.Page
Dim shp As Visio.Shape
Dim sText As String
Dim iRow As Integer

Set pag = Visio.ActivePage
sText = "Reviewer" & vbTab & "Date" & vbTab & "Comment"

If pag.PageSheet.SectionExists(Visio.visSectionAnnotation, Visio.visExistsAnywhere) Then
For iRow = 0 To pag.PageSheet.RowCount(Visio.visSectionAnnotation) - 1
sText = sText & vbCrLf & pag.Document.DocumentSheet.CellsSRC(Visio.visSectionReviewer, pag.PageSheet.CellsSRC(Visio.visSectionAnnotation, iRow, Visio.visAnnotationReviewerID).ResultIU - 1, Visio.visReviewerInitials).ResultStr("")
sText = sText & pag.PageSheet.CellsSRC(Visio.visSectionAnnotation, iRow, Visio.visAnnotationMarkerIndex).ResultIU
sText = sText & vbTab & Format(pag.PageSheet.CellsSRC(Visio.visSectionAnnotation, iRow, Visio.visAnnotationDate).ResultIU, "ddddd")
sText = sText & vbTab & pag.PageSheet.CellsSRC(Visio.visSectionAnnotation, iRow, Visio.visAnnotationComment).ResultStr("")
Next iRow
End If

For Each pagMarkup In pag.Document.Pages
If pagMarkup.Type = visTypeMarkup Then
If pagMarkup.OriginalPage = pag Then
If pagMarkup.PageSheet.SectionExists(Visio.visSectionAnnotation, Visio.visExistsAnywhere) Then
sText = sText & vbCrLf
sText = sText & vbCrLf & pag.Document.DocumentSheet.CellsSRC(Visio.visSectionReviewer, pagMarkup.ReviewerID - 1, Visio.visReviewerName).ResultStr("")
For iRow = 0 To pagMarkup.PageSheet.RowCount(Visio.visSectionAnnotation) - 1
sText = sText & vbCrLf & pag.Document.DocumentSheet.CellsSRC(Visio.visSectionReviewer, pagMarkup.PageSheet.CellsSRC(Visio.visSectionAnnotation, iRow, Visio.visAnnotationReviewerID).ResultIU - 1, Visio.visReviewerInitials).ResultStr("")
sText = sText & pagMarkup.PageSheet.CellsSRC(Visio.visSectionAnnotation, iRow, Visio.visAnnotationMarkerIndex).ResultIU
sText = sText & vbTab & Format(pagMarkup.PageSheet.CellsSRC(Visio.visSectionAnnotation, iRow, Visio.visAnnotationDate).ResultIU, "ddddd")
sText = sText & vbTab & pagMarkup.PageSheet.CellsSRC(Visio.visSectionAnnotation, iRow, Visio.visAnnotationComment).ResultStr("")
Next iRow
End If
End If
End If
Next pagMarkup

Dim iAutoSize as Integer 'new
iAutoSize = pag.AutoSize 'new
pag.AutoSize = 0 'new
Set shp = pag.DrawRectangle(-pag.PageSheet.Cells("PageWidth").ResultIU, 0, 0, pag.PageSheet.Cells("PageHeight").ResultIU)
pag.AutoSize = iAutoSize 'new
shp.AddSection visSectionUser 'new
shp.AddNamedRow visSectionUser, "msvNoAutoSize", visTagDefault 'new
shp.CellsU("User.msvNoAutoSize").FormulaU = 1 'new
shp.Cells("Para.HorzAlign").Formula = "0"
shp.Cells("VerticalAlign").Formula = "0"
shp.Name = "Reviewers Comments"
shp.Text = sText
End Sub
    5. 按下 CTRL + S 儲存繪圖。
    6. 在 [檔案] 功能表上按一下 [關閉]，並返回 Visio]。
  2. 執行巨集。要這麼做，請您執行下列步驟：
    1. 在 [工具] 功能表上指向 [巨集，然後再按一下 [巨集。
    2. 在 [巨集名稱] 清單按一下您在步驟 1，建立巨集]，然後按一下 [執行]。巨集的名稱是 FileName.Module Number.GetComments。

      巨集在繪圖頁的左邊會出現一個新圖案中插入註解。
  3. 調整圖形，其中包含註解]，然後將圖形拖曳到繪圖頁。如果您想設定圖案中的文字的格式。當您列印您的繪圖註解會顯示在圖形中您的繪圖。
這篇文章中的資訊適用於:
  • Microsoft Visio Premium 2010
  • Microsoft Visio Standard 2010
  • Microsoft Visio Professional 2010
  • Microsoft Office Visio Professional 2007
  • Microsoft Office Visio Standard 2007
  • Microsoft Office Visio Professional 2003
  • Microsoft Office Visio Standard 2003
回此頁最上方
關鍵字：?
kbmt kbdisplay kbprint kbinfo kbhowto KB898514 KbMtzh
機器翻譯機器翻譯
重要：本文是以 Microsoft 機器翻譯軟體翻譯而成，而非使用人工翻譯而成。Microsoft 同時提供使用者人工翻譯及機器翻譯兩個版本的文章，讓使用者可以依其使用語言使用知識庫中的所有文章。但是，機器翻譯的文章可能不盡完美。這些文章中也可能出現拼字、語意或文法上的錯誤，就像外國人在使用本國語言時可能發生的錯誤。Microsoft 不為內容的翻譯錯誤或客戶對該內容的使用所產生的任何錯誤或損害負責。Microsoft也同時將不斷地就機器翻譯軟體進行更新。
按一下這裡查看此文章的英文版本：898514? (http://support.microsoft.com/kb/898514/en-us/ )
回此頁最上方
Microsoft及(或)其供應商不就任何在本伺服器上發表的文字資料及其相關圖表資訊的恰當性作任何承諾。所有文字資料及其相關圖表均以「現狀」供應，不負任何擔保責任。Microsoft及(或)其供應商謹此聲明，不負任何對與此資訊有關之擔保責任，包括關於適售性、適用於某一特定用途、權利或不侵權的明示或默示擔保責任。Microsoft及(或)其供應商無論如何不對因或與使用本伺服器上資訊或與資訊的實行有關而引起的契約、過失或其他侵權行為之訴訟中的特別的、間接的、衍生性的損害或任何因使用而喪失所導致的之損害、資料或利潤負任何責任。