جيڪڏهن آخري ويلنٽائن ڊي تي توهان اڳ ۾ ئي پنهنجي پياري عورت کي چيتا فر ڪوٽ ڏنو آهي، ۽ گذريل سال اڳ - آئي فون 7، ۽ توهان حيران ٿي رهيا آهيو ته ٻيو ڇا سوچيو، پوء آئون هڪ اختيار پيش ڪري سگهان ٿو:
اهو ڪرڻ لاء 2 منٽ لڳن ٿا.
Excel کوليو، ٽيب ڏانھن وڃو داخل ڪريو - شڪلون (داخل ڪريو - شڪلون) ۽ دل چونڊيو:
اسان ان کي شيٽ تي ٺاھيو، اندر ھڪڙي رابطي واري متن داخل ڪريو، ان کي مناسب طور تي فارميٽ ڪريو:
وڌيڪ قدرتي لاء، ٽيب تي 3D اثر شامل ڪريو شڪل - شڪل اثرات (فارميٽ - شڪل اثرات):
۽ آخري رابطي - متحرڪ لاء ميڪرو شامل ڪريو. ڪلڪ ڪريو Alt + F11Visual 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)) اڳيون ۽ آخر ذيلي Visual Basic Editor کي بند ڪريو، ڪلڪ ڪريو Alt + F8 ۽ اسان جو ميڪرو هلائي. وائيلا! پيارا - خوشيءَ ۾، تون - چمي ۾، موڪلاڻي ڪاميابي هئي. جيڪڏهن توهان جو پيارو ان جي تعريف نٿو ڪري، ته پوءِ گهٽ ۾ گهٽ 3D سان ڪم ڪرڻ لاءِ VBA ڪمانڊ سکو 🙂