You probably need to explain more clearly the end product but this should get you close.
Sub fixalign()
Dim oshp1 As Shape
Dim oshp2 As Shape
Set oshp1 = ActiveWindow.Selection.ShapeRange(1)
Set oshp2 = ActiveWindow.Selection.ShapeRange(2)
oshp1.Width = oshp1.Width * 0.3
oshp2.Width = oshp2.Width * 0.3
oshp1.Top = 100
oshp2.Top = 100
oshp1.Left = 100
oshp2.Left = 100 + oshp1.Width
'group to centre
ActiveWindow.Selection.ShapeRange.Group.Select
ActiveWindow.Selection.ShapeRange.Align msoAlignCenters, True
'ungroup again
ActiveWindow.Selection.ShapeRange.Ungroup
End Sub
|