How to create Instagram logo in Microsoft Word

Опубликовано: 01 Июнь 2018
на канале: 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

Смотрите видео How to create Instagram logo in Microsoft Word онлайн без регистрации, длительностью часов минут секунд в хорошем качестве. Это видео добавил пользователь Vaclav Krejci 01 Июнь 2018, не забудьте поделиться им ссылкой с друзьями и знакомыми, на нашем сайте его посмотрели 20,797 раз и оно понравилось 297 людям.

1,651