Assuming the logo is selected

Sub paster()
Dim osld As Slide
If ActiveWindow.Selection.Type = ppSelectionShapes Then
ActiveWindow.Selection.ShapeRange.Cut
For Each osld In ActivePresentation.Slides
osld.Shapes.Paste
Next osld
End If
End Sub

__________________
Microsoft PowerPoint MVP 2007-2023
Free Advanced PowerPoint Tips and Tutorials