Хэрэв та сүүлчийн Гэгээн Валентины өдрөөр хайртай эмэгтэйдээ гепардын үслэг дээл, өмнөх жил нь iPhone 7-г бэлэглэсэн бол өөр юу бодохоо гайхаж байгаа бол би дараах сонголтыг санал болгож байна.
Үүнийг хийхэд 2 минут шаардлагатай.
Excel-ийг нээгээд таб руу очно уу Оруулах - Дүрс (Оруулах - Дүрс) мөн зүрх сонгох:
Бид үүнийг хуудсан дээр зурж, дотор нь сэтгэл хөдлөм текст оруулаад зохих ёсоор форматлана.
Илүү байгалийн байдлыг бий болгохын тулд таб дээр 3D эффект нэмнэ үү Формат - Хэлбэрийн эффектүүд (Формат - Хэлбэрийн эффектүүд):
Эцсийн мэдрэгч - хөдөлгөөнт дүрсийг макро нэмнэ үү. дарна уу Alt + F11, нээгдэх Visual Basic редакторын цонхонд цэсээр дамжуулан шинэ хоосон модулийг оруулна уу Оруулах - Модуль мөн энэ макроны текстийг тэнд хуулна:
Sub Heart() For 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 командуудыг сур 🙂