Sub Test() ActiveDocument.WorldScale = 0.5 ActiveDocument.ActiveLayer.CreateRectangle 0, 0, 2, 2End Sub