Sub ToFitShape() Dim s As Shape Set s = ActiveLayer.CreateEllipse2(5, 5, 2) ActiveWindow.ActiveView.ToFitShape sEnd Sub