清除所有工作表中的所有注释VBA Excel

Question

试图编写Excel VBA代码以设置背景图片并清除所有工作表中的所有注释。由于某些原因，我必须运行两次代码才能清除所有注释。当我第一次运行代码时，还剩下一些注释。

您能告诉我代码有什么问题吗？谢谢。

Sub Set_Draft（）

将WS_Count设置为整数 昏暗的我作为整数 WS_Count = Worksheets.Count 对于I = 1到WS_Count     工作表（I）。激活     ActiveSheet.SetBackgroundPicture“ C：\ Users \ xxx \ Documents \ DRAFT Watermark.PNG”     ActiveSheet.Cells.ClearComments 接下来我 结束

Answer 1

这对我有用，效率更高：

Sub Set_Draft()

  Dim WS As Worksheet

  For Each WS In ActiveWorkbook.Sheets

     WS.SetBackgroundPicture "G:\BEKDocs\Images to Post\Graphics\BBTMath.jpg"
     WS.Cells.ClearComments

  Next WS

End Sub 'Set_Draft

HTH