Ако на миналия Свети Валентин вече сте подарили на любимата си шуба от гепард, а предходната година – iPhone 7 и се чудите какво още да измислите, то мога да предложа вариант:
Това отнема 2 минути.
Отворете Excel, отидете на раздела Вмъкване – фигури (Вмъкване — Форми) и изберете сърце:
Начертаваме го на лист, въвеждаме трогателен текст вътре, форматираме го по подходящ начин:
За по-голяма естественост добавете 3D ефект към раздела Формат – Ефекти на формата (Формат — Ефекти на форми):
И последното докосване – добавете макрос за анимация. Кликнете Alt + F11, в прозореца на редактора на Visual Basic, който се отваря, вмъкнете нов празен модул през менюто Вмъкване – Модул и копирайте текста на този макрос там:
Sub Heart() За i = 1 до 3000 с ActiveSheet.Shapes.Range(Array("Сердце 1")).ThreeD .RotationX = i .RotationY = i / 20 .RotationZ = i / 2 Край с Application.Wait (Сега + TimeSerial(0, 0, 0.1)) Next i End Sub Затворете редактора на Visual Basic, щракнете Alt + F8 и стартирайте нашия макрос. Ето! Любими – в екстаз, вие – в целувки, празникът успешен. Ако вашият любим човек не го оценява, тогава поне научете VBA командите за работа с 3D 🙂