PowerPoint VBA 删除所有评论

Question

我有一些 VBA 代码可以自动对幻灯片进行一些更改，以供我使用 PDF 制作侧面。我想添加一行以删除侧面的所有评论。

看起来很简单，但没能在任何地方找到它。非常感谢任何帮助

Answer 1

这将完成当前版本的 PPT 的工作。 2007 年之前的版本以不同方式处理评论；我认为这应该仍然适用于较旧的演示文稿，但如果这是一个问题，你必须自己测试。并且 MS 有责任随时更改评论机制，所以谁知道将来可能会或可能不会。但现在：

Sub DeleteComments()
    Dim oSl As Slide
    Dim oCom As Comment
    Dim x As Long
    
    With ActivePresentation
        For Each oSl In .Slides
            For x = oSl.Comments.Count To 1 Step -1
                oSl.Comments(x).Delete
            Next
        Next
    End With

End Sub

PowerPoint VBA 删除所有评论

PowerPoint VBA to delete all comments

powerpoint

comments