Եթե վերջին Վալենտինի օրը դուք արդեն նվիրել եք ձեր սիրելի կնոջը չետայի մորթյա վերարկու, իսկ նախորդ տարի՝ iPhone 7, և դուք մտածում եք, թե էլ ինչ մտածել, ապա ես կարող եմ առաջարկել տարբերակ.
Դա անելու համար պահանջվում է 2 րոպե:
Բացեք Excel-ը, անցեք ներդիր Ներդիր – Ձևեր (Տեղադրեք - ձևեր) և ընտրիր սիրտ.
Մենք այն նկարում ենք թերթիկի վրա, ներսում մուտքագրում ենք հուզիչ տեքստ, համապատասխան ձևաչափում.
Ավելի մեծ բնականության համար ներդիրի վրա ավելացրեք 3D էֆեկտ Ձևաչափ - Ձևի էֆեկտներ (Ձևաչափ — Ձևերի էֆեկտներ):
Եվ վերջին հպումը – ավելացրեք մակրո անիմացիայի համար: Սեղմել Alt + F11, բացվող Visual Basic խմբագրիչի պատուհանում ցանկի միջոցով տեղադրեք նոր դատարկ մոդուլ Ներդիր – մոդուլ և պատճենեք այս մակրոյի տեքստը այնտեղ.
Sub Heart() For i = 1 To 3000 With ActiveSheet.Shapes.Range(Array("Сердце 1")).ThreeD .RotationX = i .RotationY = i / 20 .RotationZ = i / 2 Ավարտել Application-ով: Սպասեք (հիմա + TimeSerial (0, 0, 0.1)) Հաջորդ i End Sub
Փակեք Visual Basic խմբագրիչը, սեղմեք Alt + F8 և գործարկել մեր մակրոն: Voila! Սիրելիս՝ էքստազի մեջ, դու՝ համբույրների մեջ, տոնը հաջողվեց։ Եթե ձեր սիրելին դա չի գնահատում, ապա գոնե սովորեք VBA հրամանները 3D-ով աշխատելու համար 🙂