Mais uma forma de fazer arte com retângulos.

É bem simples plotar um retângulo no Excel (ou em outra linguagem de programação) – e mudar propriedades como coordenadas, tamanho, cor e borda.

ActiveSheet.Shapes.AddShape(msoShapeRectangle, 50, 30, 50, 30).Select

Selection.ShapeRange.Fill.ForeColor.RGB = RGB(0, 0, 200)

Selection.ShapeRange.Line.ForeColor.RGB = RGB(0, 0, 0)

Este vai traçar um retângulo nas coordenadas (x,y) = (50,30), com largura 50 e altura 30. Cor azul escuro e contorno preto.

Uma sucessão de retângulos vai formar um caminho.

Podemos variar o centro do caminho, de modo a ficar assimétrico.

Ou podemos fazer este caminho seguir uma senoide.

O limite é a imaginação.

Baixe o arquivo Excel em:

https://github.com/asgunzi/Caminho-Seno

Vide também: