How to copy formatting from PPT1.ppt to another PPT2.ppt

Hi
I am trying to Pickup and Apply formatting from Grouped shapes in one ppt a simular grouped shapes in another ppt.
Need some assistance to make it work.

Code:

---

Sub formattingChange()

Dim oPPT1 As Presentation
Dim oPPt2 As Presentation


Set oPPT1 = Application.Presentations("testppt")
Set oPPt2 = Application.Presentations("testppt2")


With Windows("testpp2").Selection.ShapeRange("3kant").PickUp
With Windows("testppt").Selection.ShapeRange("3kant").Apply


End Sub

---

the VBA returns with Expected function or variable.

Hope someone have an easy fix.:bow:

Moderator bump

You probably don't want the 'With' on .....

Code:

---


Windows("testpp2").Selection.ShapeRange("3kant").PickUp

Windows("testppt").Selection.ShapeRange("3kant").Apply

---

Not sure that is what's needed

You would have to specify which slide each shape is on. In this case I have used slide 1

Code:

---

Sub formattingChange()  Dim oPPT1 As Presentation
  Dim oPPt2 As Presentation
  Set oPPT1 = Application.Presentations("testPPT1")
  Set oPPt2 = Application.Presentations("testPPT2")
  oPPT1.Slides(1).Shapes("skant").PickUp
  oPPt2.Slides(1).Shapes("skant").Apply
End Sub

---

Hi both John's
I simply can not make that code work as I want.
Perhaps the thing I want to do is simply not do-able.
How can ppt know which shape should have which format?

Maybe I should be more clear in what I want.
See picture.
Attachment 21056
When running macro, then I need the 3 shapes on the left to change colors to black orange and yellow.
These are the shapes in the group called. 3kant.
the individual shapes in the group have exactly the same names.

Please confirm if the codes you supplied should work under these circumstances, if possible or how a code can be structured.
/Jesper

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

Code:

---

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

---

Hi John
I will try to post the file.
As with the last time this happens when trying to upload file:Attachment 21057

Perhaps the file is too big 5.8Mb

/Jesper

Quote:

---

Originally Posted by jesper

Hi John
I will try to post the file.
As with the last time this happens when trying to upload file:Attachment 21057

Perhaps the file is too big 5.8Mb

/Jesper

---

Hi John
I manage to make a small version of what I am trying to make.
Please find attached

When clicking on some alarms and afterwards update button, then it should be shown on the right side.
Attachment 21059