通過宏給PowerPoint添加評論

Question

我對Excel宏有相當好的理解，但現在我想在PowerPoint中創建一些東西。不幸的是，在PowerPoint 2013中沒有「記錄宏」的選項，所以我可以記錄和調整它們的初始步驟。所以，請讓我問一下如何解決2件特別的事情： 1.爲當前幻燈片添加評論 2.將此新創建的評論與其當前位置相比稍微提高 感謝您提前提供任何提示。 親切的問候， Balázs

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