Objects Inside ~ Centered Within

[dungbtl]

There are objects inside a shape, square, circle or whatever.

How to group them and become centered within that shape?

I guess they would become grouped if they aren't and center within?

See pic below.

[knowbodynow]

Try this (seemed to work using X6):

Sub AlignGroupToObject()

Dim sr As ShapeRange
Dim s as shape
 
If ActiveDocument Is Nothing Or ActiveSelection.Shapes.Count = 0 Then Exit Sub

Set sr = ActiveSelection.Shapes.all
ActiveSelection.Shapes(1).RemoveFromSelection

Set s = ActiveSelection.Shapes.all.Group

sr.CreateSelection

s.AlignToShape cdrAlignHCenter, ActiveSelection.Shapes(1)
s.AlignToShape cdrAlignVCenter, ActiveSelection.Shapes(1)

End Sub

Note: The target object is the last to be selected.

[dungbtl]

Thanks Nobody

It works in X4 & 2017 just fine.

Pint of Guinness to your right

[knowbodynow]

Glad it worked, thanks for the Guinness, haven't had a real one in over 20 years!

[shark]

Sub CenterGroup()
Dim s As Shape, sr As ShapeRange
    Set sr = ActiveSelectionRange: If sr.Count = 0 Then Beep: Exit Sub
    Set s = sr.FirstShape: sr.Remove 1 'align to bottom shape
    sr.AlignRangeToShape cdrAlignHCenter + cdrAlignVCenter, s
    sr.Group
End Sub

[dungbtl]

@shark

Wooo... many months later.

Yes this code is good as well.

Need some code fixing for 2018 version