Егер соңғы Валентин күнінде сіз өзіңіздің сүйікті әйеліңізге гепард пальтосын, ал өткен жылы 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)) Next i End Sub
Visual Basic өңдегішін жабыңыз, түймесін басыңыз Alt + F8 және макросымызды іске қосыңыз. Voila! Сүйікті – экстазда, сен – сүйісуде, мереке сәтті өтті. Егер сіздің сүйікті адамыңыз оны бағаламаса, кем дегенде 3D-мен жұмыс істеу үшін VBA командаларын үйреніңіз 🙂