moving individual objects within a group with out ungrouping

[Guest]

In PowerPoint 2002 is there a way to independently move/adjust the position
of individual components of a Group?

Motivation:
I copied a complex animation sequence from one presentation to another and
the relitive positions of individual components in a group moved slightly.
This group is a component of a very large animation sequence. If I ungroup
to adjust the position I lose the animation sequence.

Help

 

[Troy @ TLC Creative]

Unfortunately a group is fixed position unless ungrouped. The solution is to
use a third party add-in, either PPTreme's Edit toolset or Shyam's Animation
Carbon. Both allow you to copy the animation, ungroup and adjust, regroup
and reapply the animation.

 

[Steve Rindsberg]

In PowerPoint 2002 is there a way to independently move/adjust the position
of individual components of a Group?

Motivation:
I copied a complex animation sequence from one presentation to another and
the relitive positions of individual components in a group moved slightly.
This group is a component of a very large animation sequence. If I ungroup
to adjust the position I lose the animation sequence.

I don't know of any way you can do it normally but you can get there with a bit
of VBA:

Click to select the group
Press TAB to subselect each member of the group in turn
Count how many times you have to TAB to get the shape you want selected
This will become your X value in the code below

Sub SubGroupMove()
Dim oSh as Shape
Dim x as Long

Set oSh = ActiveWindow.Selection.ShapeRange(1)

' EDIT the 1 below - if you hit TAB 5 times to get the shape you want
' then enter 5 here
x = 1

' EDIT the 0s to the right of the = sign to the position you need
oSh.GroupItems(x).Left = 0
oSh.GroupItems(x).Top = 0

End Sub