Skip to content
Estrela criada por retas - em VBA
Branch: master
Clone or download
Fetching latest commit…
Cannot retrieve the latest commit at this time.
Permalink
Type Name Latest commit message Commit time
Failed to load latest commit information.
README.md
curvaEstrela.xlsb

README.md

Estrela Geométrica

Estrela criada por retas - em VBA

Como é época de Natal, a seguir um código para desenhar uma estrela só utilizando segmentos de reta e geometria, para alegrar as festas.

Imagine duas retas perpendiculares.

Cada reta recebe N divisões.

Agora, uma o primeiro ponto do eixo X ao ponto logo acima do meio do eixo Y, o segundo ponto do eixo X ao próximo ponto acima do eixo Y, e repita até o fim.

O comando VBA para adicionar uma linha é, basicamente: ActiveSheet.Shapes.AddLine(x0, y0, x1, y1)

E tem outros comandos para colorir, informar a espessura e controlar. Mas, basicamente, o único comando especial é esse de criar retas.

O resultado não impressiona muito. Porém, se aumentarmos o número de pontos, fica mais divertido.

Com 10 pontos:

Com 20 pontos:

Com 35 pontos:

Não sei exatamente o nome desta curva (Marcos Melo, sabe?), porém, a técnica é muito conhecida na matemática.

You can’t perform that action at this time.