Se no último Dia dos Namorados você já deu à sua amada um casaco de pele de chita, e no ano retrasado – iPhone 7, e você está se perguntando o que mais pensar, então posso oferecer uma opção:
Leva 2 minutos para fazer isso.
Abra o Excel, vá para a guia Inserir – Formas (Inserir - Formas) e escolha um coração:
Nós o desenhamos em uma folha, inserimos um texto tocante, formatamos adequadamente:
Para maior naturalidade, adicione um efeito 3D na guia Formato - Efeitos de Forma (Formato — Efeitos de Formas):
E o toque final – adicione uma macro para animação. Clique Alt + F11, na janela do editor Visual Basic que se abre, insira um novo módulo vazio através do menu Inserir - Módulo e copie o texto dessa macro lá:
Sub Heart() Para i = 1 A 3000 Com ActiveSheet.Shapes.Range(Array("Сердце 1")).ThreeD .RotationX = i .RotationY = i / 20 .RotationZ = i / 2 End With Application.Wait (Now + TimeSerial(0, 0, 0.1)) Próximo i End Sub
Feche o Editor do Visual Basic, clique em Alt + F8 e execute nossa macro. Voilá! Amada – em êxtase, você – em beijos, o feriado foi um sucesso. Se seu ente querido não gostar, pelo menos aprenda os comandos VBA para trabalhar com 3D 🙂