Ако на последниот Ден на вљубените веќе сте и подариле на саканата жена крзнено палто од гепард, а претходната година – 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 Заврши со апликацијата. Чекај (Сега + TimeSerial(0, 0, 0.1)) Следно i End Sub Затворете го уредувачот на Visual Basic, кликнете Alt + F8 и стартувајте го нашето макро. Voila! Возљубени – во екстаза, ти – во бакнежи, празникот беше успешен. Ако вашата сакана не го цени тоа, тогаш барем научете ги VBA командите за работа со 3D 🙂