Crie Fractais de Sierpinski.
Fractais são estruturas autosimilares e repetidas em escalas menores. A partir de regras simples, é possível fazer desenhos extremamente complexos.
É possível fazer fractais só com triângulos e retângulos, no VBA.

Para criar um retângulo no VBA, basta um código como o seguinte, definindo a posição (x,y), a largura e altura do retângulo.
ActiveSheet.Shapes.AddShape(msoShapeRectangle, x, y, largura, altura)
O fractal começa com um quadrado maior. Imagine dividir o quadrado em 9 quadrados menores. O do meio, é só traçar o contorno, e os demais, jogamos de novo na recursão.

A segunda rodada fica assim. Para cada sub-quadrado, aplicar a mesma regra numa escala menor.

A terceira rodada de iteração fica assim.

Podemos continuar até o computador aguentar (o número de elementos cresce exponencialmente).

Vide versão Excel VBA, com código aberto para quem quiser estudar. É necessário ativar macros para rodar. Código e planilha no Github. https://github.com/asgunzi/Sierpinski
O Excel não é…
Ver o post original 25 mais palavras