# How to make Adidas Originals logo in Microsoft Word

Adidas font:

Second font:

Word tutorials:

E-book

———————————————

Sub draw_adidas_originals_logo_shape()

‘

Const segments = 100 ‘ number of segments for the shape

Dim poly_points(0 To segments, 1 To 2) As Single ‘ array to hold all the points

Dim radius As Double

Dim angle As Double

Dim xorigin As Long

Dim yorigin As Long

xorigin = 120

yorigin = 120

segments_half = Int(segments / 2) – 1

radius = 100 ‘ radius of the circle

arc_span = 80 ‘ span of the arc

start_angle = (180 – arc_span) / 2 ‘ calculate the start angle

x_offset = Sin(start_angle / 360 * 2 * 3.141592654) * radius ‘ calculate x offset for right and left act to make sure they are touching

‘ right shape

For counter = 0 To segments_half

angle = (arc_span / segments_half * counter) + start_angle

angle = angle / 360 * 2 * 3.141592654 ‘ convert from degrees to radians – needed for sin and cos functions

poly_points(counter, 1) = (radius * Sin(angle) + xorigin) – x_offset ‘ convert from polar coordinates to cartesian coordinates

poly_points(counter, 2) = radius * -Cos(angle) + yorigin ‘ Sin and Cos functions are swapped to get the 0° in the top middle

Next counter

‘ left shape

For counter = (segments_half + 1) To (segments – 1)

angle = (arc_span / segments_half * (counter – (segments_half + 1))) + start_angle + 180

angle = angle / 360 * 2 * 3.141592654 ‘ convert from degrees to radians – needed for sin and cos functions

poly_points(counter, 1) = (radius * Sin(angle) + xorigin) + x_offset ‘ convert from polar coordinates to cartesian coordinates

poly_points(counter, 2) = radius * -Cos(angle) + yorigin ‘ Sin and Cos functions are swapped to get the 0° in the top middle

Next counter

‘ make the last point same as the first one to make sure the shape is closed

poly_points(segments, 1) = poly_points(0, 1)

poly_points(segments, 2) = poly_points(0, 2)

With ActiveDocument.Shapes.AddPolyline(poly_points) ‘ draw shape

.Fill.ForeColor.ObjectThemeColor = 1

.Line.Visible = 1

.Line.Weight = 3

.Select

End With

End Sub

Nguồn: https://valuedandloved.com

Xem thêm bài viết khác: https://valuedandloved.com/lam-dep/

### Xem thêm Bài Viết:

- [Giày Trên Tay] GÓC NHÌN THỰC TẾ GIÀY ADIDAS EQT SUPPORT 91/18 | UNBOXING + ONFEET
- Adidas & OVERKILL Berlin-Themed EQT Pack "Coat of Arms" EQT Support ADV & EQT Support Future
- 草爸開箱 adidas Originals EQT ADV 91/16 系列
- Unboxing ADIDAS ENERGY CLOUD WTC CLOUDFOAM TECHNOLOGY SEPATU LARI (100% ORIGINAL ASLI) NO KW !!!
- [REVIEW] Adidas Alphabounce Instinct Màu Đen

When 10:59 at you became silent because you realised what you accidentally made lmao

You could earn a lot of money with that.

That was really good! 😃 I subscribed! 😁

LOL EVERY LOGO WAS MADE USING MICROSOFT WORD XD

TRI POLOSKI 😀

Nice vid

I understand: nothing…

I should start learning coding…