LogSeqDB/pages/Scripts/powerpoint VBA - copy comments.sync-conflict-20250817-085612-UULL5XD.md

title, updated, created, latitude, longitude, altitude

title	updated	created	latitude	longitude	altitude
powerpoint VBA - copy comments	2022-06-14 13:38:24Z	2022-06-14 13:37:55Z	40.75891113	-73.97901917	0.0000

Sub CopyComments()
    Dim lFromSlide As Long
    Dim lToSlide As Long
   
    lFromSlide = InputBox(\"Copy comments from slide:\", \"SLIDE\")
    lToSlide = InputBox(\"Copy comments to slide:\", \"SLIDE\")
   
    Dim oFromSlide As Slide
    Dim oToSlide As Slide
   
    Set oFromSlide = ActivePresentation.Slides(lFromSlide)
    Set oToSlide = ActivePresentation.Slides(lToSlide)
   
    Dim oSource As Comment
    Dim oTarget As Comment
   
    For Each oSource In oFromSlide.Comments
   
        Set oTarget = _
        ActivePresentation.Slides(lToSlide).Comments.Add( _
            oSource.Left, _
            oSource.Top, _
            oSource.Author, _
            oSource.AuthorInitials, _
            oSource.Text)
           
    Next oSource

End Sub