Эгерде акыркы Валентин күнүндө сиз сүйүктүү аялыңызга гепард пальтосун, ал эми өткөн жылы iPhone 7 белек кылган болсоңуз жана дагы эмнени ойлонуш керек деп ойлонуп жатсаңыз, анда мен бир вариантты сунуштай алам:
Бул үчүн 2 мүнөт талап кылынат.
Excelди ачып, өтмөккө өтүңүз Кыстаруу – Формалар (Киргизүү — Формалар) жана жүрөктү тандаңыз:
Биз аны баракка тартабыз, ичине тийүүчү текстти киргизип, аны ылайыктуу түрдө форматтайбыз:
Табигыйыраак болушу үчүн, өтмөккө 3D эффектин кошуңуз Формат – Форма эффекттери (Формат — Форма эффекттери):
Жана акыркы тийүү - анимация үчүн макро кошуу. Click 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 жана макросубузду иштетиңиз. Voila! Сүйүктүү – экстазда, сен – өбүшүүдө, майрам ийгиликтүү өттү. Эгер сүйүктүү адамыңыз аны баалабаса, жок дегенде 3D менен иштөө үчүн VBA буйруктарын үйрөнүңүз 🙂