Why do you need Align dialog box in VBA?
It's easier Dim s As Shape, s1 As Shape s1.LeftX = s.LeftX s1.RightX = s.RightX s1.TopY = s.TopY s1.BottomY = s.BottomY
I have already solved this problem
Private Sub CommandButton1_Click() Dim OrigSelection As ShapeRange Set OrigSelection = ActiveSelectionRange OrigSelection.AlignToShape cdrAlignLeft + cdrAlignTop, ActiveShape, cdrTextAlignBoundingBox End Sub