John,
Unfortunately any attempt to use built-in animation effects are disabled as
all of the shapes are within groups. At this late stage I can neither afford
to ungroup them or turn them into pictures (although I would if starting from
scratch).
I tried to use Scaleheight / ScaleWidth but cannot set the unscale value
accurately enough and the shape either grows or shrinks following repeated
cycling (keypresses on the object that runs the scaling macro).
Here's one approach to a VBA solution (if you can use that)
Sub PumpMeUp()
With ActiveWindow.Selection.ShapeRange(1)
.Tags.Add Name:="Height", Value:=CStr(.Height)
.Tags.Add Name:="Width", Value:=CStr(.Width)
.Height = .Height * 1.1
.Width = .Width * 1.1
End With
End Sub
Sub DeflateMe()
With ActiveWindow.Selection.ShapeRange(1)
.Height = CSng(.Tags("Height"))
.Width = CSng(.Tags("Width"))
End With
End Sub
' You can use this to test it:
Sub BingePurgeMe()
Dim x As Long
With ActiveWindow.Selection.ShapeRange(1)
For x = 1 To 100
PumpMeUp
DeflateMe
Next
End With
End Sub