Se l'ultimo San Valentino hai già regalato alla tua amata donna una pelliccia di ghepardo, e l'anno prima l'iPhone 7, e ti stai chiedendo cos'altro pensare, allora posso offrirti un'opzione:
Ci vogliono 2 minuti per farlo.
Apri Excel, vai alla scheda Inserisci – Forme (Inserisci — Forme) e scegli un cuore:
Lo disegniamo su un foglio, inseriamo un testo commovente all'interno, lo formattiamo in modo appropriato:
Per una maggiore naturalezza, aggiungi un effetto 3D sulla scheda Formato – Effetti forma (Formato — Effetti delle forme):
E il tocco finale: aggiungi una macro per l'animazione. Clic Alt + F11, nella finestra dell'editor di Visual Basic che si apre, inserisci un nuovo modulo vuoto tramite il menu Inserisci – Modulo e copia lì il testo di questa macro:
Sub Heart() For i = 1 To 3000 With ActiveSheet.Shapes.Range(Array("Сердце 1")).ThreeD .RotationX = i .RotationY = i / 20 .RotationZ = i / 2 End With Application.Wait (Now + TimeSerial(0, 0, 0.1)) Next i End Sub Chiudere l'editor di Visual Basic, fare clic Alt + F8 ed esegui la nostra macro. Ecco! Amato – in estasi, tu – in baci, la vacanza è stata un successo. Se la persona amata non lo apprezza, impara almeno i comandi VBA per lavorare con il 3D 🙂