Агар дар рӯзи охирини Валентин шумо аллакай ба зани маҳбуби худ куртаи гепард ва як соли пеш аз гузашта - iPhone 7 дода бошед ва шумо дар ҳайрат бошед, ки дар бораи чӣ фикр кардан лозим аст, пас ман метавонам як вариантро пешниҳод кунам:
Барои ин кор 2 дақиқа вақт лозим аст.
Excel-ро кушоед, ба ҷадвал равед Ворид - Шаклҳо (Ворид — шаклҳо) ва дилро интихоб кунед:
Мо онро дар варақ мекашем, дар дохили матни таъсирбахш ворид мекунем ва онро мувофиқи формат формат мекунем:
Барои табиати бештар, дар ҷадвал эффекти 3D илова кунед Формат - Таъсири шакл (Формат — эффектҳои шакл):
Ва ламси ниҳоӣ - макро барои аниматсия илова кунед. клик кунед Alt + F11, дар равзанаи муҳаррири Visual 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)) Next i End Sub Муҳаррири Visual Basic -ро пӯшед, клик кунед Alt + F8 ва макроси моро иҷро кунед. Войла! Азизон — дар вачд, ту — дар бусса, ид гузашт. Агар дӯстдоштаи шумо онро қадр накунад, ҳадди аққал фармонҳои VBA-ро барои кор бо 3D ёд гиред 🙂