{"type":"video","version":"1.0","html":"<iframe src=\"https://www.loom.com/embed/073401f46b684702a5b7eacf0d03f9cb\" frameborder=\"0\" width=\"1280\" height=\"960\" webkitallowfullscreen mozallowfullscreen allowfullscreen></iframe>","height":960,"width":1280,"provider_name":"Loom","provider_url":"https://www.loom.com","thumbnail_height":960,"thumbnail_width":1280,"thumbnail_url":"https://cdn.loom.com/sessions/thumbnails/073401f46b684702a5b7eacf0d03f9cb-00001.gif","duration":96,"title":"Macro's | Copy comments from a specific slide to another","description":"Sub CopyComments()&nbsp; &nbsp; Dim lFromSlide As Long&nbsp; &nbsp; Dim lToSlide As Long&nbsp; &nbsp; Dim R &nbsp; &nbsp; &nbsp;As Long&nbsp; &nbsp; lFromSlide = InputBox(\"Copy comments from slide:\", \"SLIDE\")&nbsp; &nbsp; lToSlide = InputBox(\"Copy comments to slide:\", \"SLIDE\")&nbsp; &nbsp; Dim oFromSlide As Slide&nbsp; &nbsp; Dim oToSlide As Slide&nbsp; &nbsp; Set oFromSlide = ActivePresentation.Slides(lFromSlide)&nbsp; &nbsp; Set oToSlide = ActivePresentation.Slides(lToSlide)&nbsp; &nbsp; Dim oSource As Comment&nbsp; &nbsp;Dim oTarget As Comment&nbsp; &nbsp; For Each oSource In oFromSlide.Comments&nbsp; &nbsp; &nbsp; &nbsp; Set oTarget = ActivePresentation.Slides(lToSlide).Comments.Add _&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; (oSource.Left, _&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;oSource.Top, _&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;oSource.Author, _&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;oSource.AuthorInitials, _&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;oSource.Text)&nbsp; &nbsp; &nbsp; &nbsp; If oSource.Replies.Count &gt; 0 Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; For R = 1 To oSource.Replies.Count&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; oTarget.Replies.Add2 oSource.Left, oSource.Top, oSource.Author, _&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; oSource.AuthorInitials, oSource.Replies(R).Text, oSource.ProviderID, oSource.UserID&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Next R&nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; NextEnd Sub"}