Código VBA para graficar Onda Cuadrada con Word

 El instructivo varía según la versión del Word, debe buscar MACROS,  crear una nueva, copiar y pegar el código, teniendo en cuenta borrar todo lo anterior, solo debe quedar el siguiente código: 

Sub OndaCuadrad()

Sn = 3 'deben ser numero impares segun serie Fourier;caso 1

pi = 3.14159265358979

xd = 4 * pi 'longitud eje x

stp = 0.02 'step es la resolución, 0.01

For l = -xd To xd Step stp

For n = 1 To Sn Step 2

f = 4 / n / pi * Sin(n * l) 'función (1sen1/3sen3+1/5sen5...

s = s + f 'suma de Fourier

Next n

y1 = s 'es la función

y2 = s + stp ' determina la longitud de las líneas que forman la función

x1 = l

x2 = l + stp ' determina la longitud de las líneas que forman la función

' Cambio de coordenadas universal a Word

xi = x1 'en radianes

yi = y1

x = x2 'en radianes

y = y2

cerox = 0

ceroy = 300

xin = xi * 200 / pi

yin = ceroy - yi * 200 / pi

cerox = 0

ceroy = 300

xf = x * 200 / pi

yf = ceroy - y * 200 / pi

s = 0

With ActiveDocument.Shapes.AddLine(xin, yin, xf, yf).Line

.ForeColor.RGB = RGB(0, 255, 255)

.Weight = 0

End With

Next l

With ActiveDocument.Shapes.AddLine(400, 0, 400, 1000).Line: End With: With ActiveDocument.Shapes.AddLine(0, 300, 800, 300).Line

End With 'ha graficado eje x y eje y

'Por: Luis Alfonso Aristizabal Agudelo 

End Sub