パワーポイントプレゼンテーションへのコメントの追加unsaving VBA

Question

VBAを使用してパワーポイントプレゼンテーションにコメントを追加したいと思います。このコードはForループを使用していますが、マクロを実行すると、プレゼンテーション全体、つまりPPTのすべてのスライドにコメントが追加されます。私は選択したスライドにコメントを追加したかったのです。誰も助けることができますか？
これは、いくつかのコメントを追加するには、ループのために使用したコードです：

Sub FictiousNames() 
    Dim mySlides As Slide 
    Dim cmtNew As Comment 

    For Each mySlides In ActivePresentation.Slides 
    Set cmtNew = mySlides.Comments.Add(Left:=12, Top:=12, _ 
    Author:="Fictious Names", AuthorInitials:="", _ 
    Text:="Please verify if this is an approved fictitious name. Also, you can use the following link to generate fictitious names: https://microsoft.sharepoint.com/sites/LCAWeb/Home/Copyrights-Trademarks-and-Patents/Trademarks/Fictitious-Names-Finder)" 
Next mySlides 

End Sub 

Answer 1

あなたは、単一の（一定の）スライドにコメントを追加したい場合は、あなたがForループを使用する必要はありません、ただのコピー以下のコード：

Sub FictiousNames() 

' modify the number in brackets (9) to your slide number 
ActivePresentation.Slides(9).Comments.Add 12, 12, "Fictious Names", "", _ 
    "Please verify if this is an approved fictitious name. Also, you can use the following link to generate fictitious names: https://microsoft.sharepoint.com/sites/LCAWeb/Home/Copyrights-Trademarks-and-Patents/Trademarks/Fictitious-Names-Finder)" 

End Sub