Agar oxirgi Sevishganlar kunida siz sevikli ayolingizga gepard mo'ynali paltosini va o'tgan yili iPhone 7 ni sovg'a qilgan bo'lsangiz va siz yana nima haqida o'ylashni bilmoqchi bo'lsangiz, men sizga bir variantni taklif qilaman:
Buning uchun 2 daqiqa vaqt ketadi.
Excel-ni oching, yorlig'iga o'ting Qo'shish - Shakllar (Qo'shish - shakllar) va yurakni tanlang:
Biz uni varaqqa chizamiz, ichiga ta'sirli matn kiritamiz, uni mos ravishda formatlaymiz:
Kattaroq tabiiylik uchun yorliqda 3D effektini qo'shing Format - Shakl effektlari (Format - Shakl effektlari):
Va oxirgi teginish - animatsiya uchun so'l qo'shing. bosing Alt + F11, ochilgan Visual Basic muharriri oynasida menyu orqali yangi bo'sh modulni kiriting Qo'shish - modul va ushbu makrosning matnini u yerga nusxalash:
Sub Heart() uchun i = 1 dan 3000 gacha ActiveSheet.Shapes.Range(Array("Serdce 1")).ThreeD .RotationX = i .RotationY = i / 20 .RotationZ = i / 2 Ilova bilan tugaydi. Kutib turing (Endi). + TimeSerial(0, 0, 0.1)) Keyingi i End Sub Visual Basic muharririni yoping, bosing Alt + F8 va makromizni ishga tushiring. Voila! Sevimli - ekstazda, siz - o'pishlarda, bayram muvaffaqiyatli o'tdi. Agar sevganingiz buni qadrlamasa, hech bo'lmaganda 3D bilan ishlash uchun VBA buyruqlarini bilib oling 🙂