თუ ბოლო ვალენტინობის დღეს თქვენ უკვე აჩუქეთ თქვენს საყვარელ ქალს გეპარდის ბეწვის ქურთუკი, ხოლო წინა წელს - iPhone 7 და გაინტერესებთ კიდევ რა იფიქროთ, მაშინ მე შემიძლია შემოგთავაზოთ ვარიანტი:
ამის გაკეთებას 2 წუთი სჭირდება.
გახსენით Excel, გადადით ჩანართზე ჩასმა – Shapes (ჩასმა - ფორმები) და აირჩიე გული:
ჩვენ ვხატავთ მას ფურცელზე, შევიყვანთ შემაფერხებელ ტექსტს შიგნით, ვაფორმირებთ მას სათანადოდ:
მეტი ბუნებრიობისთვის დაამატეთ 3D ეფექტი ჩანართზე ფორმატი - ფორმის ეფექტები (ფორმატი - ფორმის ეფექტები):
და ბოლო შეხება - დაამატეთ მაკრო ანიმაციისთვის. დააწკაპუნეთ Alt + F11Visual Basic რედაქტორის ფანჯარაში, რომელიც იხსნება, მენიუში ჩადეთ ახალი ცარიელი მოდული ჩასმა – მოდული და დააკოპირეთ ამ მაკროს ტექსტი იქ:
Sub Heart() For 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 და გაუშვით ჩვენი მაკრო. ვოილა! საყვარელო - ექსტაზში, შენ - კოცნაში, დღესასწაული წარმატებული იყო. თუ თქვენი საყვარელი ადამიანი ამას არ აფასებს, მაშინ მაინც ისწავლეთ VBA ბრძანებები 3D-თან მუშაობისთვის 🙂