A “Espiral musical”, a figura abaixo, é construída somente com retas e uma regra simples de ângulos.
Ela é baseada num vídeo enviado pelo amigo Maurício Cota.
Comece com uma reta qualquer. Depois, trace uma nova reta, adicionando uma rotação com um ângulo.
Continue a sequência, agora adicionando reta com 2*ângulo, depois 3*ângulo…
Na sexta iteração:
Com 100 iterações:
O arquivo Excel aqui (https://1drv.ms/x/s!Aumr1P3FaK7jn2acOg89jOQF3Kl4) implementa a rotina, podendo variar ângulos, tamanho da reta e número de iterações.
Dica: Para plotar uma reta no VBA, basta usar o comando abaixo.
ActiveSheet.Shapes.AddConnector(msoConnectorStraight, x1, y1, x2, y2).Select
Este vai plotar uma reta começando nas coordenadas (x1,y1) e terminando em (x2,y2).
Alguns exemplos:
Mudando um pouco a rotina, é possível fazer degradê de cores.
Outra dica é colocar um ângulo fracionário. Isso porque um ângulo inteiro uma hora vai se tornar periódico, e a figura não será tão legal.
Trilha sonora: O Rancho das Flores, de Vinícius de Moraes e Johann Sebastian Bach
Vinicius de Moraes – Rancho das flores, com Toquinho e Clara Nunes. – YouTube
Veja também:
ideiasesquecidas.com 
Republicou isso em Ferramentas em Excel-Vba.
CurtirCurtir