Sir need some help.
I want to replace rectangle shape to my freeform shape within a group(group has four shapes & animation also).
But not configure the z-order position of new freeform shape(will be same z-order position of rectangle shape)
So what I have done:
1.pickup animation of group
2.Calculated z-order position of rectangle & its 1
3.Ungroup
4.paste freeform shape
5.Capture properties of rectangle such as location and size
6.apply properties to freeform shape
7.delete rectangle shape
8.group all(four shape which include freeform shape also)
9.apply animation to group
10.Calculated z-order position of freeform shape & its 4(within group)
11.WANT TO GIVE SAME Z-ORDER POSITION(ie 1) TO FREEFORM SHAPE AS RECTANGLE SHAPE(I DELETED)
I try below code but not working. Please help
Sub reposition()
Dim osld As Slide
Dim TZ As Long
Dim ZO As Long
Set osld = ActivePresentation.Slides(1)
'ZO is z-order position of freeform shape & its 4
'TZ is z-order position of rectangle shape & its 1
With osld.Shapes("Group1").GroupItems(ZO)
While .ZOrderPosition > 1
.ZOrder msoSendBackward
Wend
End With