පසුගිය වැලන්ටයින් දිනයේ ඔබ දැනටමත් ඔබේ ආදරණීය කාන්තාවට චීටා ලොම් කබායක් ලබා දී තිබේ නම්, සහ පසුගිය වසරේ - iPhone 7, සහ ඔබ තවත් සිතන්නේ කුමක්දැයි කල්පනා කරන්නේ නම්, මට විකල්පයක් ඉදිරිපත් කළ හැකිය:
මෙය කිරීමට විනාඩි 2 ක් ගතවේ.
එක්සෙල් විවෘත කරන්න, ටැබයට යන්න ඇතුල් කරන්න - හැඩතල (ඇතුළු කරන්න - හැඩතල) සහ හදවතක් තෝරන්න:
අපි එය පත්‍රයක් මත අඳින්නෙමු, ඇතුළත ස්පර්ශ වන පෙළක් ඇතුළත් කරන්න, එය සුදුසු ලෙස හැඩගස්වන්න:
වැඩි ස්වභාවික භාවය සඳහා, ටැබය මත 3D බලපෑමක් එක් කරන්න ආකෘතිය - හැඩ බලපෑම් (ආකෘතිය - හැඩ ප්‍රයෝග):
සහ අවසාන ස්පර්ශය - සජීවිකරණය සඳහා මැක්රෝ එකතු කරන්න. ක්ලික් කරන්න Alt + F11, විවෘත වන දෘශ්‍ය මූලික සංස්කාරක කවුළුව තුළ, මෙනුව හරහා නව හිස් මොඩියුලයක් ඇතුළු කරන්න ඇතුල් කරන්න - මොඩියුලය සහ මෙම මැක්‍රෝවේ පෙළ එහි පිටපත් කරන්න:
උප හදවත() සඳහා i = 1 සිට 3000 දක්වා ActiveSheet සමග.Shapes.Range(Array("Сердце 1")).ThreeD .RotationX = i .RotationY = i / 20 .RotationZ = i / 2 යෙදුම සමඟ අවසන් කරන්න.Wait (Now) + TimeSerial(0, 0, 0.1)) ඊළඟ i End Sub දෘශ්‍ය මූලික සංස්කාරකය වසන්න, ක්ලික් කරන්න Alt + F8 සහ අපගේ මැක්රෝ ධාවනය කරන්න. Voila! ආදරණීය - ප්රීතියෙන්, ඔබ - සිපගැනීම්වලදී, නිවාඩු දිනය සාර්ථක විය. ඔබගේ ආදරණීයයා එය අගය නොකරන්නේ නම්, අවම වශයෙන් 3D සමඟ වැඩ කිරීම සඳහා VBA විධානයන් ඉගෙන ගන්න 🙂