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
Смотрите видео How to create Adobe Acrobat Reader logo in Microsoft Word онлайн без регистрации, длительностью часов минут секунд в хорошем качестве. Это видео добавил пользователь Vaclav Krejci 26 Июнь 2018, не забудьте поделиться им ссылкой с друзьями и знакомыми, на нашем сайте его посмотрели 2,349 раз и оно понравилось 49 людям.