Скачать или смотреть 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