Калі на мінулы Дзень святога Валянціна вы ўжо дарылі каханай шубку з гепарда, а ў пазамінулым годзе - iPhone 7, і думаеце, што яшчэ прыдумаць, то магу прапанаваць варыянт:
Для гэтага спатрэбіцца 2 хвіліны.
Адкрыйце Excel, перайдзіце на ўкладку Устаўка – формы (Устаўка — Формы) і абярыце сэрца:
Малюем яго на аркушы, ўводзім ўнутр кранальны тэкст, фарматуем адпаведным чынам:
Для большай натуральнасці дадайце на ўкладку 3D-эфект Фармат - Эфекты формы (Фармат — Эфекты фігур):
І апошні штрых - дадайце макрас для анімацыі. Націсніце Alt + F11, у якое адкрылася акне рэдактара Visual Basic устаўце праз меню новы пусты модуль Устаўка – модуль і скапіруйце туды тэкст гэтага макраса:
Sub Heart() For i = 1 To 3000 With ActiveSheet.Shapes.Range(Array("Serdce 1")).ThreeD .RotationX = i .RotationY = i / 20 .RotationZ = i / 2 End With Application.Wait (Now + TimeSerial(0, 0, 0.1)) Next i End Sub Зачыніце рэдактар Visual Basic, націсніце Alt + F8 і запусціць наш макрас. Вуаля! Каханы – у экстазе, ты – у пацалунках, свята ўдалося. Калі ваш каханы гэтага не шануе, то хаця б вывучыце каманды VBA для працы з 3D 🙂