Якщо на минулий День святого Валентина ви вже подарували коханій жінці шубу з гепарда, а позаминулого року – iPhone 7, і думаєте, що ще придумати, то я можу запропонувати варіант:
Для цього потрібно 2 хвилини.
Відкрийте Excel, перейдіть на вкладку Вставка – фігури (Вставка — фігури) і вибери серце:
Малюємо на аркуші, вводимо всередину зворушливий текст, форматуємо відповідно:
Для більшої природності додайте на вкладку 3D-ефект Формат – Ефекти форми (Формат — Ефекти форм):
І останній штрих – додайте макрос для анімації. Натисніть Alt + F11, у вікні редактора Visual Basic, що відкриється, вставте новий порожній модуль через меню Вставка – модуль і скопіюйте туди текст цього макросу:
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 (Зараз + TimeSerial(0, 0, 0.1)) Next i End Sub Закрийте редактор Visual Basic, натисніть Alt + F8 і запустіть наш макрос. Вуаля! Коханий – в екстазі, ти – в поцілунках, свято вдалося. Якщо ваш коханий цього не оцінить, то хоча б вивчіть команди VBA для роботи з 3D 🙂