గత ప్రేమికుల రోజున మీరు ఇప్పటికే మీ ప్రియమైన స్త్రీకి చిరుత బొచ్చు కోట్ను అందించి ఉంటే, మరియు గత సంవత్సరం క్రితం – iPhone 7, మరియు మీరు ఇంకా ఏమి ఆలోచించాలని ఆలోచిస్తున్నట్లయితే, నేను ఒక ఎంపికను అందించగలను:
దీన్ని చేయడానికి 2 నిమిషాలు పడుతుంది.
ఎక్సెల్ తెరవండి, ట్యాబ్కు వెళ్లండి చొప్పించు - ఆకారాలు (చొప్పించు - ఆకారాలు) మరియు హృదయాన్ని ఎంచుకోండి:
మేము దానిని షీట్లో గీస్తాము, లోపల హత్తుకునే వచనాన్ని నమోదు చేయండి, దానిని తగిన విధంగా ఫార్మాట్ చేయండి:
ఎక్కువ సహజత్వం కోసం, ట్యాబ్పై 3D ప్రభావాన్ని జోడించండి ఫార్మాట్ - షేప్ ఎఫెక్ట్స్ (ఫార్మాట్ — షేప్స్ ఎఫెక్ట్స్):
మరియు చివరి టచ్ - యానిమేషన్ కోసం స్థూలాన్ని జోడించండి. క్లిక్ చేయండి Alt + F11, తెరుచుకునే విజువల్ బేసిక్ ఎడిటర్ విండోలో, మెను ద్వారా కొత్త ఖాళీ మాడ్యూల్ని చొప్పించండి చొప్పించు - మాడ్యూల్ మరియు ఈ మాక్రో యొక్క వచనాన్ని అక్కడ కాపీ చేయండి:
సబ్ హార్ట్() కోసం i = 1 నుండి 3000 వరకు ActiveSheet. Shapes.Range(array("Сердце 1")).ThreeD .RotationX = i .RotationY = i / 20 .RotationZ = i / 2 అప్లికేషన్తో ముగింపు. (ఇప్పుడు వేచి ఉండండి + టైమ్సీరియల్(0, 0, 0.1)) తదుపరి ఐ ఎండ్ సబ్
విజువల్ బేసిక్ ఎడిటర్ను మూసివేసి, క్లిక్ చేయండి Alt + F8 మరియు మా స్థూలాన్ని అమలు చేయండి. వోయిలా! ప్రియమైన - పారవశ్యంలో, మీరు - ముద్దులలో, సెలవుదినం విజయవంతమైంది. మీ ప్రియమైన వ్యక్తి దానిని అభినందించకపోతే, కనీసం 3Dతో పని చేయడానికి VBA ఆదేశాలను నేర్చుకోండి 🙂