Sub Test() Dim sr As ShapeRange Set sr = ActivePage.FindShapes(, cdrRectangleShape) sr.SetRotationCenter ActivePage.SizeWidth / 2, ActivePage.SizeHeight / 2 sr.Rotate 45End Sub