How to create Adobe Acrobat Reader logo in Microsoft Word
https://en.wikipedia.org/wiki/Epitroc...
https://en.wikipedia.org/wiki/Hypotro...
https://www.desmos.com/calculator/u0b...
Word tutorials: • Microsoft Word 2013 tutorials
E-book • Free e-book - 20.14 Text Effects in M...
/ besttexteffectsinword
http://issuu.com/upir/docs/best_text_...
----------------------------------------------------------
Sub draw_adobe_acrobat_shape()
Const segments = 256 ' number of segments for the shape
Dim poly_points(0 To segments, 1 To 2) As Single ' array to hold all the points
Dim angle As Double
Dim xorigin As Long
Dim yorigin As Long
Dim value_rbig As Double
Dim value_r As Double
Dim value_d As Double
xorigin = 120
yorigin = 120
value_rbig = 60
value_r = -20
value_d = -30
For counter = 0 To segments
angle = 360 / segments * counter
angle = angle / 360 * 2 * 3.141592654 ' convert from degrees to radians - needed for sin and cos functions
poly_points(counter, 1) = (value_rbig + value_r) * Cos(angle) - value_d * Cos(((value_rbig + value_r) / value_r) * angle) + xorigin
poly_points(counter, 2) = (value_rbig + value_r) * Sin(angle) - value_d * Sin(((value_rbig + value_r) / value_r) * angle) + yorigin
Next counter
With ActiveDocument.Shapes.AddPolyline(poly_points) ' draw shape
.Line.Visible = 1
.Line.Weight = 3
.Select
End With
End Sub
Watch video How to create Adobe Acrobat Reader logo in Microsoft Word online without registration, duration hours minute second in high quality. This video was added by user Vaclav Krejci 26 June 2018, don't forget to share it with your friends and acquaintances, it has been viewed on our site 2,349 once and liked it 49 people.