Əgər son Sevgililər Günündə siz artıq sevimli qadınınıza çita xəz paltarı, keçən il isə iPhone 7 hədiyyə etmisinizsə və başqa nə düşünəcəyinizi düşünürsünüzsə, onda mən bir variant təklif edə bilərəm:
Bunu etmək üçün 2 dəqiqə vaxt lazımdır.
Excel-i açın, nişana keçin Daxil et - Formalar (Daxil et - Formalar) və ürək seçin:
Onu vərəqdə çəkirik, içərisinə toxunan mətn daxil edirik, uyğun şəkildə formatlayırıq:
Daha çox təbiilik üçün nişana 3D effekti əlavə edin Format - Forma Effektləri (Format - Forma Efektləri):
Və son toxunuş – animasiya üçün makro əlavə edin. klikləyin Alt + F11, açılan Visual Basic redaktoru pəncərəsində menyu vasitəsilə yeni boş modul daxil edin Daxil et - Modul və bu makronun mətnini oraya kopyalayın:
Alt Ürək() üçün i = 1-dən 3000-ə qədər ActiveSheet.Shapes.Range(Array("Сердце 1")).ThreeD .RotationX = i .RotationY = i / 20 .RotationZ = i / 2 Tətbiqlə bitir.Gözləyin (İndi) + TimeSerial(0, 0, 0.1)) Next i End Sub Visual Basic redaktorunu bağlayın, üzərinə klikləyin Alt + F8 və makromuzu işə salın. Voila! Sevgilim - ekstazda, sən - öpüşlərdə, bayram uğurlu keçdi. Sevdiyiniz insan bunu qiymətləndirmirsə, heç olmasa 3D ilə işləmək üçün VBA əmrlərini öyrənin 🙂