Membuat Animasi Pergerakan Matahari dengan Excel

Saat berselancar kemarin, saya menemukan harta karun :) Harta karun ini memungkinkan saya untuk bisa membuat gerakan melingkar dari suatu Objek yang dipilih. Misalkan, kita buat suatu objek Oval di Excel. Secara otomatis Excel memberi nama objek tersebut "Oval 1". Untuk mengetahui nama objek yang diberikan Excel, klik objeknya dan lihat di bagian kiri gambar, tepat di atas header kolom, disitu tertulis "Oval 1" Membuka Visual Basic Editor Selanjutnya, kita akan menggunakan Visual Basic Editor untuk menulis kode makro "gerakan melingkar". Jika versi Excel anda seperti saya, yang tidak ada icon untuk Visual Basic Editornya, ikuti saja langkah berikut: 1. klik logo Microsoft dalam lingkaran paling kiri atas

1356388010254456640

2. Klik "Excel Options" di kiri bawah dialog box yang muncul

13563883712117640821

Selanjutnya akan mucul kotak dialog berikut

13563887901101722849

Klik customize, dan dalam combo box di kotak hijau pilih "All Commands" lalu pilih "Visual Basic" dan klik "Add". Terakhir klik "OK". Icon visual basic akan muncul di ribbon Excel

1356415231512690800

klik icon tersebut dan selanjutnya copy kode makro berikut

======================================================================

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 'waiting for in milliseconds' Sub test() Dim centerLeft As Long, centerTop As Long Dim Radius As Double Dim Theta As Double centerLeft = 500 centerTop = 500 Radius = 450 With ActiveSheet.Shapes("Oval 1") For Theta = 0 To 2 * Application.Pi() Step Application.Pi() / 180 .Left = centerLeft + (Radius * Cos(Theta)) .Top = centerTop - (Radius * Sin(Theta)) Sleep 40 DoEvents Next Theta End With End Sub

======================================================================

Jalankan makronya dengan cara memilih "View" lalu pilih "Macros" dan "View Macros"

1356415513808265464

Pilih macro yang sudah kita salin, dalam hal ini macro "test" dan klik "Run"

1356415700410617970

Setelah mengklik "Run" maka objek yang sudah kita buat ("Oval 1") akan bergerak melingkar seperti berikut

Dengan sedikit imajinasi, tinggal tambahkan gambar bumi dan lintasan matahari seperti ini

1356415937163069578