LogSeqDB/logseq/bak/pages/Scripts/powerpoint VBA - copy comments/2025-08-03T03_53_36.336Z.android.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