Если в прошлый День святого Валентина вы уже подарили любимой женщине шубу из гепарда, а в позапрошлом году – 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 End With Application.Wait (Now + TimeSerial(0, 0, 0.1)) Далее я завершаю подписку Закройте редактор Visual Basic, нажмите Alt + F8 и запускаем наш макрос. Вуаля! Любимый – в экстазе, ты – в поцелуях, праздник удался. Если ваш близкий человек этого не оценит, то хотя бы выучите команды VBA для работы с 3D 🙂