How to create Instagram logo in Microsoft Word

Superellipse inside Word: https://youtu.be/yOADKszDDNk
Other word tutorials: https://www.youtube.com/playlist?list=PLkTfLuE2Kz-5hELeiPa6iVt97qL0W-aIR
E-book http://youtu.be/Z0jB9xJ5-TU
http://www.facebook.com/BestTextEffectsInWord
http://issuu.com/upir/docs/best_text_effects_in_microsoft_word
--------------------------------------------------------------------

Sub draw_superellipse()
'
'
' draw (something like) superellipse in Microsoft Word
' created in 2018 by Vaclav Krejci
' please see youtube tutorials for details about the code:
' https://youtu.be/yOADKszDDNk
' https://youtu.be/fQoJSalAw7w
'
'
'
Dim circle_points(1 To 13, 1 To 2) As Single
Dim circle_xpos As Double
Dim circle_ypos As Double
Dim circle_size As Double
Dim circle_anchor_offset As Double

circle_xpos = 100
circle_ypos = 100
circle_size = 200
circle_anchor_offset = 60

' fist point
circle_points(1, 1) = circle_xpos + circle_size / 2
circle_points(1, 2) = circle_ypos

circle_points(2, 1) = circle_xpos + circle_size / 2 + circle_anchor_offset
circle_points(2, 2) = circle_ypos
' second point
circle_points(3, 1) = circle_xpos + circle_size
circle_points(3, 2) = circle_ypos + circle_size / 2 - circle_anchor_offset

circle_points(4, 1) = circle_xpos + circle_size
circle_points(4, 2) = circle_ypos + circle_size / 2

circle_points(5, 1) = circle_xpos + circle_size
circle_points(5, 2) = circle_ypos + circle_size / 2 + circle_anchor_offset
' third point
circle_points(6, 1) = circle_xpos + circle_size / 2 + circle_anchor_offset
circle_points(6, 2) = circle_ypos + circle_size

circle_points(7, 1) = circle_xpos + circle_size / 2
circle_points(7, 2) = circle_ypos + circle_size

circle_points(8, 1) = circle_xpos + circle_size / 2 - circle_anchor_offset
circle_points(8, 2) = circle_ypos + circle_size
' 4th point
circle_points(9, 1) = circle_xpos
circle_points(9, 2) = circle_ypos + circle_size / 2 + circle_anchor_offset

circle_points(10, 1) = circle_xpos
circle_points(10, 2) = circle_ypos + circle_size / 2

circle_points(11, 1) = circle_xpos
circle_points(11, 2) = circle_ypos + circle_size / 2 - circle_anchor_offset
' last point (connected to the first point)
circle_points(12, 1) = circle_xpos + circle_size / 2 - circle_anchor_offset
circle_points(12, 2) = circle_ypos

circle_points(13, 1) = circle_xpos + circle_size / 2
circle_points(13, 2) = circle_ypos
ActiveDocument.Shapes.AddCurve(circle_points).Select
End Sub

Видео How to create Instagram logo in Microsoft Word канала Vaclav Krejci