Se o último día de San Valentín xa lle regalastes á túa amada muller un abrigo de pel de guepardo, e o ano anterior, o iPhone 7, e estás a preguntar que máis pensar, podo ofrecer unha opción:
Leva 2 minutos facelo.
Abre Excel, vai á pestana Inserir - Formas (Inserir — Formas) e escolle un corazón:
Debuxámolo nunha folla, introducimos un texto conmovedor dentro, formatámolo axeitadamente:
Para unha maior naturalidade, engade un efecto 3D na pestana Formato - Efectos de forma (Formato — Efectos de formas):
E o toque final: engade unha macro para a animación. Fai clic Alt + F11, na xanela do editor de Visual Basic que se abre, insira un novo módulo baleiro a través do menú Inserir – Módulo e copia alí o texto desta macro:
Sub Heart() For i = 1 To 3000 With ActiveSheet.Shapes.Range(Array("Сердце 1")).ThreeD .RotationX = i .RotationY = i / 20 .RotationZ = i / 2 Finalizar coa aplicación.Wait (Agora + TimeSerial(0, 0, 0.1)) Next i End Sub Pecha o Editor de Visual Basic, fai clic Alt + F8 e executa a nosa macro. Voila! Amada - en éxtase, ti - en bicos, as vacacións foron un éxito. Se o teu ser querido non o aprecia, polo menos aprende os comandos VBA para traballar con 3D 🙂