Son Sevgililer Günü'nde sevgili kadına zaten bir çita kürk manto verdiyseniz ve önceki yıl - iPhone 7 ve başka ne düşüneceğinizi merak ediyorsanız, o zaman bir seçenek sunabilirim:
Bunu yapmak 2 dakika sürer.
Excel'i açın, sekmeye gidin Ekle – Şekiller (Ekle - Şekiller) ve bir kalp seçin:
Bir kağıda çiziyoruz, içine dokunaklı bir metin giriyoruz, uygun şekilde biçimlendiriyoruz:
Daha fazla doğallık için sekmeye bir 3D efekti ekleyin Biçim – Şekil Efektleri (Biçim — Şekil Efektleri):
Ve son dokunuş - animasyon için bir makro ekleyin. Tıklamak Alt + F11, açılan Visual Basic düzenleyici penceresinde menüden yeni bir boş modül ekleyin Ekle – Modül ve bu makronun metnini buraya kopyalayın:
Sub Heart() için i = 1 to 3000 ile ActiveSheet.Shapes.Range(Array("Сердце 1")).ÜçD .RotationX = i .RotationY = i / 20 .RotationZ = i / 2 Uygulamayla Sonlandır.Bekle (Şimdi + TimeSerial(0, 0, 0.1)) Sonraki i End Sub
Visual Basic Düzenleyiciyi kapatın, tıklayın. Alt + F8 ve makromuzu çalıştırın. İşte! Sevgili - ecstasy'de, sen - öpücüklerde, tatil başarılıydı. Sevdiğiniz kişi bunu takdir etmiyorsa, en azından 3D ile çalışmak için VBA komutlarını öğrenin 🙂