Caminho com retângulos

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:

Um comentário sobre “Caminho com retângulos

Deixe uma resposta para Arnaldo Gunzi Cancelar resposta

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

Logo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. 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