Question

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

Answer 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

通过宏添加评论到PowerPoint

1 个答案: