파워 포인트 프리젠 테이션에 코멘트 추가하기 unsing 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