WORD: Superellipse with equation, Polar Coordinates and VBA скачать в хорошем качестве

WORD: Superellipse with equation, Polar Coordinates and VBA

WORD: Superellipse using VBA -    • WORD: Superellipse using VBA   How to create Instagram logo in Microsoft Word -    • How to create Instagram logo in Microsoft ...   Word tutorials:    • Microsoft Word 2013 tutorials   E-book    • Free e-book - 20.14 Text Effects in Micros...     / besttexteffectsinword   http://issuu.com/upir/docs/best_text_... ----------------------------------------------------------------- Sub draw_polygon() ' ' draw_polygon Macro ' Const segments = 256 Dim poly_points(0 To segments, 1 To 2) As Single Dim radius As Double Dim angle As Double Dim xorigin As Long Dim yorigin As Long Dim object_color As Long xorigin = 120 yorigin = 120 object_color = Rnd() * 5 + 4 For counter = 0 To segments angle = 360 / segments * counter angle = angle / 360 * 2 * 3.141592654 radius = 100 poly_points(counter, 1) = radius * Abs(Cos(angle)) ^ (2 / 0.5) * Sgn(Cos(angle)) + xorigin poly_points(counter, 2) = radius * Abs(Sin(angle)) ^ (2 / 0.5) * Sgn(Sin(angle)) + yorigin Next counter With ActiveDocument.Shapes.AddPolyline(poly_points) .Line.ForeColor.ObjectThemeColor = object_color .Line.Visible = 1 .Line.Weight = 1.5 .Fill.Visible = 0 .Select End With End Sub