که چیرې د ویلینټاین په وروستۍ ورځ تاسو لا دمخه خپلې ګرانې میرمنې ته د چیتا فر کوټ ورکړ ، او تیر کال دمخه - آی فون 7 ، او تاسو حیران یاست چې د بل څه په اړه فکر وکړئ ، نو زه یو اختیار وړاندیز کولی شم:
دا د دې کولو لپاره 2 دقیقې وخت نیسي.
اکسل خلاص کړئ، ټب ته لاړ شئ داخل کړئ - شکلونه (داخل کړئ - شکلونه) او زړه غوره کړئ:
موږ دا په یوه پاڼه کې رسم کړو، یو لمسونکی متن دننه دننه کړئ، په مناسب ډول یې بڼه کړئ:
د ډیر طبیعي کیدو لپاره ، په ټب کې 3D اغیزه اضافه کړئ بڼه - د شکل اغیزې (شکل - شکلونه اغیزې):
او وروستی ټچ - د حرکت لپاره میکرو اضافه کړئ. کلیک وکړئ Alt + F11، د بصری اساسی مدیر کړکۍ کې چې خلاصیږي ، د مینو له لارې یو نوی خالي ماډل داخل کړئ داخل کړئ - ماډل او د دې میکرو متن هلته کاپي کړئ:
Sub Heart() for i = 1 to 3000 with ActiveSheet.Shapes.Range(Array("Сердце 1")).ThreeD .RotationX = i .RotationY = i / 20 .RotationZ = i / 2 د غوښتنلیک سره پای. انتظار وکړئ (اوس + TimeSerial(0, 0, 0.1)) بل او پای فرعي د بصری اساسی مدیر بند کړئ، کلیک وکړئ Alt + F8 او زموږ میکرو چلوي. وایلا! ګرانه - په خوښۍ کې، تاسو - په بوسو کې، رخصتۍ بریالۍ وه. که ستاسو مینه وال یې ستاینه نه کوي، نو لږترلږه د 3D سره کار کولو لپاره د VBA امرونه زده کړئ 🙂