none
Animasi 3D Auto Shape pada Microsoft Excel 2013 RRS feed

  • Pertanyaan

  • Apakah kita dapat membuat animasi 3D AutoShape pada MICROSOFT EXCEL 2013?

    Kode yang saya buat yaitu di Excel 2003 dan Excel 2007 dapat berjalan dengan baik :

    Private Declare Function timeGetTime Lib "winmm.dll" () As Long
    Private Declare Function timeBeginPeriod Lib "winmm.dll" (ByVal uPeriod As Long) As Long
    Private Declare Function timeEndPeriod Lib "winmm.dll" (ByVal uPeriod As Long) As Long


    Private Sub CommandButton1_Click()
    timeBeginPeriod 1
    t = timeGetTime
    For i = -0 To 300
    Shapes("AutoShape 2").IncrementRotation (3)
    Shapes("AutoShape 2").ThreeD.RotationX = i
    Shapes("AutoShape 2").ThreeD.RotationY = i
    Shapes("AutoShape 2").Width = i
    Shapes("AutoShape 2").Height = i
    Shapes("AutoShape 2").Left = i

    DoEvents
    Next i
    timeEndPeriod 1

    End Sub

    Gambar ada di :

    http://tinypic.com/view.php?pic=wtgfnd&s=6
    Sabtu, 09 Februari 2013 19.10

Jawaban