ਜੇਕਰ ਪਿਛਲੇ ਵੈਲੇਨਟਾਈਨ ਡੇ 'ਤੇ ਤੁਸੀਂ ਪਹਿਲਾਂ ਹੀ ਆਪਣੀ ਪਿਆਰੀ ਔਰਤ ਨੂੰ ਚੀਤਾ ਦਾ ਫਰ ਕੋਟ ਦਿੱਤਾ ਸੀ, ਅਤੇ ਪਿਛਲੇ ਸਾਲ - ਆਈਫੋਨ 7, ਅਤੇ ਤੁਸੀਂ ਸੋਚ ਰਹੇ ਹੋ ਕਿ ਹੋਰ ਕੀ ਸੋਚਣਾ ਹੈ, ਤਾਂ ਮੈਂ ਇੱਕ ਵਿਕਲਪ ਪੇਸ਼ ਕਰ ਸਕਦਾ ਹਾਂ:
ਅਜਿਹਾ ਕਰਨ ਵਿੱਚ 2 ਮਿੰਟ ਲੱਗਦੇ ਹਨ।
ਐਕਸਲ ਖੋਲ੍ਹੋ, ਟੈਬ 'ਤੇ ਜਾਓ ਪਾਓ - ਆਕਾਰ (ਸ਼ਾਮਿਲ - ਆਕਾਰ) ਅਤੇ ਇੱਕ ਦਿਲ ਚੁਣੋ:
ਅਸੀਂ ਇਸਨੂੰ ਇੱਕ ਸ਼ੀਟ 'ਤੇ ਖਿੱਚਦੇ ਹਾਂ, ਅੰਦਰ ਇੱਕ ਛੂਹਣ ਵਾਲਾ ਟੈਕਸਟ ਦਾਖਲ ਕਰਦੇ ਹਾਂ, ਇਸਨੂੰ ਢੁਕਵੇਂ ਰੂਪ ਵਿੱਚ ਫਾਰਮੈਟ ਕਰਦੇ ਹਾਂ:
ਵਧੇਰੇ ਕੁਦਰਤੀਤਾ ਲਈ, ਟੈਬ 'ਤੇ ਇੱਕ 3D ਪ੍ਰਭਾਵ ਸ਼ਾਮਲ ਕਰੋ ਫਾਰਮੈਟ - ਆਕਾਰ ਪ੍ਰਭਾਵ (ਫਾਰਮੈਟ — ਆਕਾਰ ਪ੍ਰਭਾਵ):
ਅਤੇ ਅੰਤਮ ਸੰਪਰਕ - ਐਨੀਮੇਸ਼ਨ ਲਈ ਇੱਕ ਮੈਕਰੋ ਸ਼ਾਮਲ ਕਰੋ। ਕਲਿੱਕ ਕਰੋ Alt + F11, ਵਿਜ਼ੂਅਲ ਬੇਸਿਕ ਐਡੀਟਰ ਵਿੰਡੋ ਵਿੱਚ ਜੋ ਖੁੱਲ੍ਹਦੀ ਹੈ, ਮੀਨੂ ਰਾਹੀਂ ਇੱਕ ਨਵਾਂ ਖਾਲੀ ਮੋਡੀਊਲ ਪਾਓ ਸੰਮਿਲਿਤ ਕਰੋ - ਮੋਡੀਊਲ ਅਤੇ ਇਸ ਮੈਕਰੋ ਦੇ ਟੈਕਸਟ ਨੂੰ ਉੱਥੇ ਕਾਪੀ ਕਰੋ:
ActiveSheet.Shapes.Range(Array("Сердце 1")) ਦੇ ਨਾਲ i = 3000 ਤੋਂ 1 ਲਈ ਸਬ ਹਾਰਟ()।ThreeD .RotationX = i .RotationY = i / 20 .RotationZ = i / 2 ਐਪਲੀਕੇਸ਼ਨ ਦੇ ਨਾਲ ਅੰਤ। ਉਡੀਕ ਕਰੋ (ਹੁਣ) + ਟਾਈਮਸੀਰੀਅਲ(0, 0, 0.1)) ਅੱਗੇ ਅਤੇ ਅੰਤ ਸਬ ਵਿਜ਼ੂਅਲ ਬੇਸਿਕ ਐਡੀਟਰ ਨੂੰ ਬੰਦ ਕਰੋ, ਕਲਿੱਕ ਕਰੋ Alt + F8 ਅਤੇ ਸਾਡਾ ਮੈਕਰੋ ਚਲਾਓ। ਵੋਇਲਾ! ਪਿਆਰੇ - ਖੁਸ਼ੀ ਵਿੱਚ, ਤੁਸੀਂ - ਚੁੰਮਣ ਵਿੱਚ, ਛੁੱਟੀ ਇੱਕ ਸਫਲਤਾ ਸੀ. ਜੇ ਤੁਹਾਡਾ ਅਜ਼ੀਜ਼ ਇਸਦੀ ਕਦਰ ਨਹੀਂ ਕਰਦਾ, ਤਾਂ ਘੱਟੋ ਘੱਟ 3D ਨਾਲ ਕੰਮ ਕਰਨ ਲਈ VBA ਕਮਾਂਡਾਂ ਸਿੱਖੋ 🙂