How to create Instagram logo in Microsoft Word

Published: 01 June 2018
on channel: Vaclav Krejci

20,797

297

Superellipse inside Word:    • WORD: Superellipse using VBA
Other 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_superellipse()
'
'
' draw (something like) superellipse in Microsoft Word
' created in 2018 by Vaclav Krejci
' please see youtube tutorials for details about the code:
'    • WORD: Superellipse using VBA
'    • How to create Instagram logo in Micro...
'
'
'
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

Watch video How to create Instagram logo in Microsoft Word online without registration, duration hours minute second in high quality. This video was added by user Vaclav Krejci 01 June 2018, don't forget to share it with your friends and acquaintances, it has been viewed on our site 20,797 once and liked it 297 people.

25,251

339