ALIGN CENTER

Centering one object relative to another is a common practical task. 
There is nothing complicated about this operation. 
If it is done often, the time we spend on it is great. 
This necessitates finding ways to automate it, and VBA provides countless such ways. 
I will introduce you to one of them that I use to make the job easier. 
There are certainly many other similar options. 
Certainly some of them are better. Any ideas on the subject would be gratefully received.

Sub BhBp_Center_Objects()
Dim s1 As Shape
Dim s2 As Shape
Set s1 = ActiveSelectionRange.Shapes(1)
Set s2 = ActiveSelectionRange.Shapes(2)
s2.CenterX = s1.CenterX
s2.CenterY = s1.CenterY

'mcenterx = ActiveShape.CenterX
'mcentery = ActiveShape.CenterY

End Sub