Sub Test() Const an As Long = 10 Dim i As Long ActiveDocument.DrawingOriginX = 0 ActiveDocument.DrawingOriginY = 0 For i = 0 To an - 1 ActiveLayer.CreateGuideAngle 0, 0, i * 360 / an Next iEnd Sub