通过宏向 PowerPoint 添加注释

【问题标题】：Add comment to PowerPoint by macro通过宏向 PowerPoint 添加注释
【发布时间】：2015-06-07 20:48:02
【问题描述】：

我对 Excel 宏有相当好的了解，但现在我想在 PowerPoint 中创建一些东西。不幸的是，在 PowerPoint 2013 中没有“记录宏”选项，因此我可以记录和调整初始步骤。所以请让我问两个具体的问题如何解决： 1.给当前幻灯片添加评论 2. 与当前位置相比，将这个新创建的评论稍微向上移动感谢您提前提供任何提示。亲切的问候，巴拉兹

【问题讨论】：

标签： vba comments powerpoint add

【解决方案1】：

这将添加评论，并可选择允许您提供作者姓名、首字母缩写和职位。首字母部分有效，名称部分似乎无效。我认为 PPT 总是选择当前的用户名。

Sub Test()
    AddComment ActivePresentation.Slides(1), "This is the comment", "Abraham Lincoln", "AL"
End Sub

Sub AddComment(oSl As Slide, sText As String, _
    Optional sAuthor As String = "", _
    Optional sAuthorInitials As String = "XX", _
    Optional sngTop As Single = 100, Optional sngLeft As Single = 100)

    With oSl
        .Comments.Add sngLeft, sngTop, sAuthor, sAuthorInitials, sText
    End With

End Sub

【讨论】：