Estrela em VBA

Estrela Geométrica – em VBA

Ferramentas em Excel-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, porém, a técnica é muito conhecida na matemática.

Planilha para download no Github: https://github.com/asgunzi/EstrelaGeometrica

Ver o post original

Deixe um comentário

Faça o login usando um destes métodos para comentar:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair /  Alterar )

Foto do Google

Você está comentando utilizando sua conta Google. Sair /  Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair /  Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair /  Alterar )

Conectando a %s