Macro's | Copy comments from a specific slide to another
NoMore Delivery・
260 views
3
0.8×
1×
1.2×
1.5×
1.7×
2×
2.5×
1 min 30 sec⚡️1 min 52 sec1 min 30 sec1 min 15 sec1 min52 sec45 sec36 sec
0.8×
1×
1.2×
1.5×
1.7×
2×
2.5×
1 min 30 sec⚡️1 min 52 sec1 min 30 sec1 min 15 sec1 min52 sec45 sec36 sec
1 Comment
NoMore Delivery
Oct 20, 2020
Sub CopyComments()<br> Dim lFromSlide As Long<br> Dim lToSlide As Long<br> Dim R As Long<br> lFromSlide = InputBox("Copy comments from slide:", "SLIDE")<br> lToSlide = InputBox("Copy comments to slide:", "SLIDE")<br> Dim oFromSlide As Slide<br> Dim oToSlide As Slide<br> Set oFromSlide = ActivePresentation.Slides(lFromSlide)<br> Set oToSlide = ActivePresentation.Slides(lToSlide)<br> Dim oSource As Comment<br> Dim oTarget As Comment<br> For Each oSource In oFromSlide.Comments<br> Set oTarget = ActivePresentation.Slides(lToSlide).Comments.Add _<br> (oSource.Left, _<br> oSource.Top, _<br> oSource.Author, _<br> oSource.AuthorInitials, _<br> oSource.Text)<br> If oSource.Replies.Count > 0 Then<br> For R = 1 To oSource.Replies.Count<br> oTarget.Replies.Add2 oSource.Left, oSource.Top, oSource.Author, _<br> oSource.AuthorInitials, oSource.Replies(R).Text, oSource.ProviderID, oSource.UserID<br> Next R<br> End If<br> Next<br>End Sub
NoMore Delivery
Feb 14, 2022
Sadly this seems to not be working as well as before due to the new powerpoint update. Now when we use this it uses our Office365 credentials for the new comments instead, any way that can be checked?
A
Anonymous
Sept 6, 2024
use this code:
Sub CopyComments() Dim lFromSlide As Long Dim lToSlide As Long Dim R 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) If oSource.Replies.Count > 0 Then For R = 1 To oSource.Replies.Count oTarget.Replies.Add2 oSource.Left, oSource.Top, oSource.Author, _ oSource.AuthorInitials, oSource.Replies(R).Text, oSource.ProviderID, oSource.UserID Next R End If Next End Sub
Sub CopyComments()
Dim lFromSlide As Long
Dim lToSlide As Long
Dim R 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)
If oSource.Replies.Count > 0 Then
For R = 1 To oSource.Replies.Count
oTarget.Replies.Add2 oSource.Left, oSource.Top, oSource.Author, _
oSource.AuthorInitials, oSource.Replies(R).Text, oSource.ProviderID, oSource.UserID
Next R
End If
Next
End Sub