如何：显示工作表注释

更新： 2008 年 7 月

可以通过编程方式显示和隐藏 Microsoft Office Excel 工作表中的注释。

在文档级自定义项中显示工作表中的所有注释

• 如果希望显示注释，请将 Visible 属性设置为 true，否则设置为 false。此代码必须放置在一个表类中，而不是放在 ThisWorkbook 类中。

  Private Sub ShowOrHideComments(ByVal show As Boolean)
      Dim i As Integer
      For i = 1 To Me.Comments.Count
          Me.Comments(i).Visible = show
      Next
  End Sub
  

  private void ShowOrHideComments(bool show)
  {
      for (int i = 1; i <= this.Comments.Count; i++)
      {
          this.Comments[i].Visible = show;
      }
  }
  

在应用程序级外接程序中显示工作表中的所有注释

• 如果希望显示注释，请将 Visible 属性设置为 true，否则设置为 false。

  Private Sub ShowOrHideComments(ByVal show As Boolean)
      Dim worksheet As Excel.Worksheet = CType(Application.ActiveSheet, Excel.Worksheet)
      Dim i As Integer
      For i = 1 To worksheet.Comments.Count
          worksheet.Comments(i).Visible = show
      Next
  End Sub
  

  private void ShowOrHideComments(bool show)
  {
      Excel.Worksheet worksheet = (Excel.Worksheet)Application.ActiveSheet;
      for (int i = 1; i <= worksheet.Comments.Count; i++)
      {
          worksheet.Comments[i].Visible = show;
      }
  }
  

请参见

任务

如何：添加和删除工作表注释

概念

使用工作表

宿主项和宿主控件概述

修订记录