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.
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.