From the screenshot it looks like the GROUP is called 3kant but the individual shapes are not.

Really it would be best if you posted the presentation but something like this should maybe work.

Change the slide number and the names of the presentations if necessary

Sub changeGrp()   Dim opres1 As Presentation
   Dim opres2 As Presentation
   Dim L As Long
   Set opres1 = Presentations("testPPT1")
   Set opres2 = Presentations("testPPT2")
   With opres1.Slides(1).Shapes("3kant")
      For L = 1 To .GroupItems.Count
         .GroupItems(L).PickUp
         opres2.Slides(1).Shapes("3kant").GroupItems(L).Apply
      Next L
   End With
End Sub